Visual Basic - para maCO

hola maCo te escribo por aca porque no tengo tu mail.
en realidad es para copiar de un directorio a otro todos los archivos.
pero el filecopy sirve solo para uno, y cuando lo quiero hacer ocn un do while loop no me encuentra la ruta.
se te ocurre algo??

gracias mariel

Disculpa que no ponga mi email, es que me es mas rapido para contestar.
pero aqui esta, si necesitas algo y lo se, me contactas
Email = [email protected]

Bueno efectivamente la Function FileCopy es para copiar un archivo para eso necesitas hacer un Loop (Bucle, Ciclo, o como lo llames).
Cree una carpeta prueba y dentro de ella otra carpeta prueba

Codigo:

Private Sub CopiarDir_Click()

Dim sFile As String

sFile = Dir("C:\Prueba\*.*", vbArchive)

Do While sFile <> ""
Call FileCopy("C:\Prueba\" & sFile, "C:\Prueba\Prueba\" & sFile)
sFile = Dir()
Loop

End Sub

con eso copiaras todo de la carpeta C:\Prueba a --> C:\Prueba\Prueba
si Quieres crear la carpeta Dentro del codigo es con la Function MkDir

maCo