jump to navigation

FSO - Copiar carpetas Abril 30, 2008

Posted by erik in : VisualBasic , trackback

Lo que hariamos en referencia es activar FSO y luego para copiar una carpeta añadiriamos este código:

Código:

Dim fso As FileSystemObject     
Set FSO = New FileSystemObject
' En rutacopiar añadiriamos la ruta de la carpeta que queremos copiar
' y en rutaPegar la ruta donde se pegara la carpeta
FSO.CopyFolder rutaCopiar, rutaPegar
End Sub

Muy sencillo, buena suerte.

Comments»

no comments yet - be the first?