Programación General > Visual Basic 6.0 e inferiores

 Copiar Directorios

(1/1)

jpardo84:
hola a todos, he intentado buscar por el internet una funcion para copiar directorios pero no la he hallado, ademàs necesito poder copiar archivos de cierto tipo por ejemplo todos los *.doc de un directio a otro. Se que debe ser sencillo pero no he logrado encontrar, muchas gracias a quien me puede colaborar....saludos

Makko:
Te lo doy a modo de ejemplo. Ya que es mas facil.

--- Código: Text ---FileCopy ("C:\solocodigo.txt", "C:\archivos de programa\solocodigo.txt") Asi se copia un archivo de una carpeta a otra.

jpardo84:
Muchas gracias por su interes, pero lo que necesito es copiar la carpeta completa de un directorio a otro, por ejemplo copiar toda carpeta C:\Mis Documentos\ a D:\

Muchas gracias...saludos

Makko:
Podrias probar con algo asi:


--- Código: Text ---Private Function CopiarCarpeta(ByVal RutaOrigen As String, ByVal RutaDestino As String, Optional ByVal Comodines As String = "*.*")Dim NombreArchivo As StringIf Right(RutaOrigen, 1) <> "\" Then RutaOrigen = RutaOrigen & "\"If Right(RutaDestino, 1) <> "\" Then RutaDestino = RutaDestino & "\"NombreArchivo = Dir(RutaOrigen & Comodines)Do While Len(NombreArchivo) > 0FileCopy RutaOrigen & NombreArchivo, RutaDestino & NombreArchivoNombreArchivo = Dir()LoopEnd Function 
Este es el boton que al clickera te copiara la carpeta donde vos le digas

--- Código: Text ---Sub Command1_Click()Call CopiarCarpeta("C:\a", "C:\b") 'aca tenes que cambiar por el path y carpeta a copiarEnd Sub 

Navegación

[0] Índice de Mensajes