Autor Tema: Como Copiar Archivos De Un Directorio A Otro?? (Leído 1025 veces)

Eddo · « **en:** Miércoles 4 de Febrero de 2004, 05:34 »

Hola!, alguien sabe como puedo hacer para copiar todos los archivos de un directorio a otro directorio distinto, en visual basic,( o java por ultimo), pero sin nombrar los archivos de a uno, sino que nombrando el directorio.
Aca tengo un ejemplo pero no funciona. Nose que cosa debo cambiar para arreglarlo.

miArchivo = Dir("C:\cob")
Do While miArchivo <> ""
FileCopy miArchivo, "C:\carpeta\directorio"
miArchivo = Dir
Loop

Muchas Gracias para quien desee ayudarme.

Se despide atte
GABRIEL

ROBER.29

Hola,

Utiliza el objeto FileSystemObject y la API CopyFile. Te adjunto un ejemplo que te acabo de hacer para que te lo mires.

Para poder utilizar el objeto FileSystemObject tienes que agregar la siguiente referencia al proyecto:

Microsoft Scripting Runtime.

Espero que te sirva, para cualquier duda no dudes en preguntarme.

Un saludo.

Bopo

encontre un codigo y lo edite harto para que sea mas "usable"

Código: Text

Option Explicit
 
Private Declare Function CopyFile Lib &#34;kernel32&#34; _
  Alias &#34;CopyFileA&#34; (ByVal lpExistingFileName As String, _
  ByVal lpNewFileName As String, ByVal bFailIfExists As Long) _
  As Long
 
Public Function APIFileCopy(src As String, dest As String, _
  Optional FailIfDestExists As Boolean) As Boolean
 
 
 
Dim lRet As Long
lRet = CopyFile(src, dest, FailIfDestExists)
APIFileCopy = (lRet &#62; 0)
 
End Function
 
Private Sub Command1_Click()
Dim origen As String
Dim destino As String
origen = Dir1.Path & &#34;&#092;&#34; & File1.FileName
destino = Dir2.Path & &#34;&#092;&#34; & File1.FileName
APIFileCopy origen, destino
 
End Sub
 
Private Sub Dir1_Change()
File1.Path = Dir1
End Sub
 
Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub
 
 
Private Sub Drive2_Change()
Dir2.Path = Drive2
End Sub
 

Deber poner 2 Drivelistbox, 2 dirlistbox , 1 filelistbox y un boton, los nombres los dejas talomo estan

SoloCodigo

Autor Tema: Como Copiar Archivos De Un Directorio A Otro?? (Leído 1025 veces)

Eddo

Como Copiar Archivos De Un Directorio A Otro??

ROBER.29

Re: Como Copiar Archivos De Un Directorio A Otro??

Bopo

Re: Como Copiar Archivos De Un Directorio A Otro??