** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Copia integra de una carpeta
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCopia integra de una carpeta

 Responder Responder
Autor
Mensaje
buho Ver desplegable
Administrador
Administrador
Avatar
Abuelo FELIZ

Unido: 10/Abril/2004
Localización: Valladolid
Estado: Sin conexión
Puntos: 11317
Enlace directo a este mensaje Tema: Copia integra de una carpeta
    Enviado: 10/Agosto/2013 a las 08:16
Este sencillo procedimiento copia todo el contenido de una carpeta (Tanto ficheros como subcarpetas) a otro destino diferente. ideal para copias de respaldo.

Sub CopiaCarpeta(StrOrigen As String, StrDestino As String)
    Dim ObjetoFolder As Object
    Set ObjetoFolder = CreateObject("Scripting.FileSystemObject")
    ObjetoFolder.CopyFolder StrOrigen, StrDestino
End Sub

Vamos a probar el procedimiento:

Sub Prueba()
 CopiaCarpeta "C:\UnaCarpeta", CurrentProject.Path & "\Carpetadestino"
End Sub

Es de señalar que las rutas que se pasan *no* terminan en \


Editado por buho - 10/Agosto/2013 a las 08:25
Expulsado de la cárcel por robar los barrotes
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable