Autor Tema: Copiar Directorios (Leído 1475 veces)

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

Makko

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

Código: Text

FileCopy (&#34;C:&#092;solocodigo.txt&#34;, &#34;C:&#092;archivos de programa&#092;solocodigo.txt&#34;)
 

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 = &#34;*.*&#34;)
Dim NombreArchivo As String
If Right(RutaOrigen, 1) &#60;&#62; &#34;&#092;&#34; Then RutaOrigen = RutaOrigen & &#34;&#092;&#34;
If Right(RutaDestino, 1) &#60;&#62; &#34;&#092;&#34; Then RutaDestino = RutaDestino & &#34;&#092;&#34;
NombreArchivo = Dir(RutaOrigen & Comodines)
Do While Len(NombreArchivo) &#62; 0
FileCopy RutaOrigen & NombreArchivo, RutaDestino & NombreArchivo
NombreArchivo = Dir()
Loop
End Function
 

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

Código: Text

Sub Command1_Click()
Call CopiarCarpeta(&#34;C:&#092;a&#34;, &#34;C:&#092;b&#34;) 'aca tenes que cambiar por el path y carpeta a copiar
End Sub
 

SoloCodigo

Autor Tema: Copiar Directorios (Leído 1475 veces)

jpardo84

Copiar Directorios

Makko

Re: Copiar Directorios

jpardo84

Re: Copiar Directorios

Makko

Re: Copiar Directorios