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

 

 

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

<Volver> - Anterior - Siguiente

 

 

 

---

 

 

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

• Leer y escribir datos en un fichero txt con File system Object ( FSO )
• Eliminar directorio incluyendo Subdirectorios y archivos con FSO
• Registrar el ejecutable para que inicie con Windows
• Ejemplo para cambiar el Papel Tapiz en windows Xp

 

Recursos Visual basic.NET - Enlaces

• Ejemplo con manejo de archivos en vb.NET

 

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar