Sección de códigos , trucos y ejemplos para visual basic

13 - Copiar un Directorio completo con sus archivos incluidos con File system Object

Este ejemplo muestra como usar Fso ( File system Object) para copiar el contenido de una carpeta completa, incluyendo archivos y subdirectorios que contenga

Para utilizar FSO, se puede hacer mediante una variable de tipo object y creando el objeto con CreateObject, o también incluyendo la referencia a Microsoft scripting Runtime desde el menú referencias del vb y declarar la variable fso como de tipo FileSystemObject

Para crearla mediante CreateObject sería de la siguiente forma :

Dim Obj_Fso As Object

Set Obj_Fso = CreateObject("Scripting.FileSystemObject")

El método para copiar el directorio es CopyFolder, y solo requiere de dos parámetros.

El primer parámetro es la ruta de origen a copiar, el segunda el path o Ruta destino.

Nota: en este ejemplo se requiere incluir la referencia a FSO

En un Form colocar un command1 y especificar en la variable RutaOrigen y Ruta Destino los paths.

Private Sub Command1_Click() 'Variable para utilizar Microsoft Scripting Runtime Dim fso As FileSystemObject Set fso = New FileSystemObject ' Se crea la instancia 'Copiamos el directorio entero incluyendo sus archivos fso.CopyFolder rutaOrigen, rutaDestino 'Eliminamos el objeto Set fso = Nothing End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Recursos Visual basic.NET - Enlaces

Ejemplo con manejo de archivos en vb.NET

Buscar en Recursos vb