Duda en visual (Directorios)

Hola amigos!!!!!





Bueno pues tengo un problema con un programa que estoy creando en visual basic

pero no se como copiar un directorio a otra ubicacion. La verdad lo ke kiero aser es copiar una carpeta de mi computador a mi memoria usb pero no encuentro la manera de aserlo



espero y me puedanb ayudar se los agradeseria infinitamente!

Hola, la vdd, visual basic no tiene una funcion para copiar directorios, pero puedes crearte una, algo mas o menos asi:

Código:

Private Function CopiarCarpetas(ByVal Origen As String, ByVal Destino As String)

 * *'Variable para guardar el nombre de cada archivo a copiar

 * *Dim archivo As String

 * *'Comprobar la ruta de origen, y agrega un \ al final si no se especificó

 * *If Right$(Origen, 1) <> "\" Then Origen = Origen & "\"

 * *&#39;Comprobar la ruta de destino, y agrega un \ al final si no se especificó

 * *If Right$(Destino, 1) <> "\" Then Destino = Destino & "\"

 * *&#39;Si no existe la carpeta de destino, hay que crearla

 * *If Dir$(Destino) = "" Then MkDir Destino

 * *archivo = Dir$(Origen & "*.*")

 * *&#39;Mientras haya archivos dentro de la carpeta

 * *While archivo <> ""

 * * * *&#39;Copiamos el archivo especificado entre carpetas origen y destino

 * * * *FileCopy (Origen & archivo), (Destino & archivo)

 * * * *&#39;Pasamos al sig. archivo

 * * * *archivo = Dir$

 * * * *DoEvents

 * *Wend

End Function

Y para mandarla llamar, por ejemplo en un boton:

Código:

Private Sub Command1_Click()

 * *Call CopiarCarpetas("C:\carpetaorigen", "c:\carpetadestino")

End Sub

Saludos

MMM... no me dio resultado solo al aser la copia de la carpetaa otra ubicacion copia la carpeta pero sin archivos!.

Iniciado por Chato' date='Jan 16 2009, 12:59 PM

MMM... no me dio resultado solo al aser la copia de la carpetaa otra ubicacion copia la carpeta pero sin archivos!.

[snapback]517717[/snapback]

Seguro? hiciste varias pruebas? a mi se me funciona, espero alguien mas pueda corroborarlo.



Saludos

Iniciado por Chato' date='Jan 15 2009, 09:43 PM

Hola amigos!!!!!

Bueno pues tengo un problema con un programa que estoy creando en visual basic

pero no se como copiar un directorio a otra ubicacion. La verdad lo ke kiero aser es copiar una carpeta de mi computador a mi memoria usb pero no encuentro la manera de aserlo



espero y me puedanb ayudar se los agradeseria infinitamente!

[snapback]517555[/snapback]

saludos cordiales. Intenta adaptar este ejemplo para copiar directorios. Espero que sirva



Copiar carpetas en visual basic