Programación General > Visual Basic 6.0 e inferiores

 Como Copiar Archivos De Un Directorio A Otro??

(1/1)

Eddo:
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" :hola:


--- 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 LonglRet = CopyFile(src, dest, FailIfDestExists)APIFileCopy = (lRet &#62; 0) End Function Private Sub Command1_Click()Dim origen As StringDim destino As Stringorigen = Dir1.Path & &#34;&#092;&#34; & File1.FileNamedestino = Dir2.Path & &#34;&#092;&#34; & File1.FileNameAPIFileCopy origen, destino End Sub Private Sub Dir1_Change()File1.Path = Dir1End Sub Private Sub Drive1_Change()Dir1.Path = Drive1End Sub  Private Sub Drive2_Change()Dir2.Path = Drive2End Sub 
Deber poner 2 Drivelistbox, 2 dirlistbox , 1 filelistbox y un boton, los nombres los dejas talomo estan :blink:

Navegación

[0] Índice de Mensajes