Jump to content
GabrielRaigosa

Copiar un Archivo de una ruta de red a carpeta local

Recommended Posts

Hola,

¿Alguien sabe como copiar un archivo de una ruta de red a una carpeta local?

Tengo un archivo en la siguente ruta

\\190.160.1.8\Users\Lampareria2\Documents\MOVIMIENTOS LAMPARAS\movimientos lamparas.accdb

y necesito copiarlo a la carpeta

C:\DropBox\Cedulas y Codigos\movimientos lamparas.accdb

Si el archivo existe en el destino debe sobre escribir el viejo por el nuevo, esa tarea se hace casi a diario.

De antemano gracias por su ayuda

Gabriel

 

 

Share this post


Link to post
Share on other sites

Esto es lo que he intentado y no me funciona:

Sub CopiarArchivos()

Archivo = "movimientos lamparas.accdb"

Origen = "\\190.160.1.8\Users\Lampareria2\Documents\MOVIMIENTOS LAMPARAS\"
Destino = "C:\DropBox\Cedulas y Codigos\"


    FileCopy Origen & Archivo, Destino & Archivo
    MsgBox "Se copiaron satisfactoriamente el archivo [movimientos lamparas.accdb]"
        
End Sub

 

 

Share this post


Link to post
Share on other sites

Hola Gerson,

Problema resuelto con tu sugerencia, la macro quedo asi:

Cita

Private Sub CB_Copiar_BD_lampareria_Click()

Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")

Archivo = "movimientos lamparas.accdb"

origen = "\\190.160.1.8\Users\Lampareria2\Documents\MOVIMIENTOS LAMPARAS\"
destino = "C:\DropBox\Cedulas y Codigos\"

    fso.Copyfile origen & Archivo, destino & Archivo
    
    Set fso = Nothing
    
    MsgBox "Se copiaron satisfactoriamente el archivo [movimientos lamparas.accdb]"
        
End Sub

Tema solucionado.

Gracias Gerson

Edited by GabrielRaigosa

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png