Ra?
16 de Septiembre del 2003

Hola a todos!!!, me piden que haga un programita que realice copias de seguridad del disco duro pero nose como puedo hacerlo, si alguien puede ayudarme se lo agradeceria mucho.
Saludos

sdemingo
16 de Septiembre del 2003

Hombre, lo más fácil, que no lo más óptimo, sería algo así:

Sub Copia()
Dim fs as Object
Dim rutaOrigen as String
Dim rutaDestino as String

Set fs = CreateObject("Scripting.FileSystemObject")

rutaOrigen = "C:"
rutaDestino = "D:"

fs.CopyFolder rutaOrigen & "*", rutaDestino
fs.CopyFile rutaOrigen & "*.*", rutaDestino, True

End Sub

Un saludo

sdemingo