SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jpardo84 en Viernes 24 de Marzo de 2006, 15:02

Título: Copiar Directorios
Publicado por: jpardo84 en Viernes 24 de Marzo de 2006, 15:02

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

Título: Re: Copiar Directorios
Publicado por: Makko en Viernes 24 de Marzo de 2006, 18:17

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

Código: Text

1. FileCopy ("C:\solocodigo.txt", "C:\archivos de programa\solocodigo.txt")
2.  

Asi se copia un archivo de una carpeta a otra.

Título: Re: Copiar Directorios
Publicado por: jpardo84 en Jueves 30 de Marzo de 2006, 18:35

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

Título: Re: Copiar Directorios
Publicado por: Makko en Jueves 30 de Marzo de 2006, 20:23

Podrias probar con algo asi:

Código: Text

1. Private Function CopiarCarpeta(ByVal RutaOrigen As String, ByVal RutaDestino As String, Optional ByVal Comodines As String = "*.*")
2. Dim NombreArchivo As String
3. If Right(RutaOrigen, 1) <> "\" Then RutaOrigen = RutaOrigen & "\"
4. If Right(RutaDestino, 1) <> "\" Then RutaDestino = RutaDestino & "\"
5. NombreArchivo = Dir(RutaOrigen & Comodines)
6. Do While Len(NombreArchivo) > 0
7. FileCopy RutaOrigen & NombreArchivo, RutaDestino & NombreArchivo
8. NombreArchivo = Dir()
9. Loop
10. End Function
11.  

Este es el boton que al clickera te copiara la carpeta donde vos le digas

Código: Text

1. Sub Command1_Click()
2. Call CopiarCarpeta("C:\a", "C:\b") 'aca tenes que cambiar por el path y carpeta a copiar
3. End Sub
4.