copiar archivos
WEnas tengo alguien me podria decir como es el comando k se ha de utilizar para copiar un archivo de un cd-rom al disco duro? gracias
dim FicheroOrigen as string, FicheroDestino as string
FicheroOrigen="D:Nombre.txt"
FicheroDestino="C:Nombre.txt"
FileCopy FicheroOrigen, FicheroDestino
FicheroOrigen="D:Nombre.txt"
FicheroDestino="C:Nombre.txt"
FileCopy FicheroOrigen, FicheroDestino
Sub Copiar()
Dim fs as Object
Dim rutaOrigen as String
Dim rutaDestino as String
Set fs = CreateObject("Scripting.FileSystemObject")
rutaOrigen = "D:Torrente2.avi"
rutaDestino = "C:Peliculas"
fs.CopyFile rutaOrigen, rutaDestino
End Sub
Bueno, si quieres también tienes el copyFolder como método por si lo que quieres copiar son directorios, ....
Un saludo
sdemingo
Dim fs as Object
Dim rutaOrigen as String
Dim rutaDestino as String
Set fs = CreateObject("Scripting.FileSystemObject")
rutaOrigen = "D:Torrente2.avi"
rutaDestino = "C:Peliculas"
fs.CopyFile rutaOrigen, rutaDestino
End Sub
Bueno, si quieres también tienes el copyFolder como método por si lo que quieres copiar son directorios, ....
Un saludo
sdemingo
