|
Hola
Eso lo puedes hacer con este metodo:
Dim ArchivoOrigen As String
Dim ArchivoDestino As String
Set fs = CreateObject("Scripting.FileSystemObject")
ArchivoOrigen = "c:\pruebas\pruebas.txt"
ArchivoDestino = "c:\pruebas\renamed.txt"
fs.CopyFile ArchivoOrigen, ArchivoDestino
fs.deletefile ArchivoOrigen
fijate de colocar los nombres correctos en ArchivoOrigen y ArchivoDestino.
Saludos, Leo
|