Renombrar archivos
Publicado por Adrian (28 intervenciones) el 15/05/2016 07:00:49
¿Hay alguna forma de no renombrar ciertos archivos? Por ejemplo que se renombren todos los archivos menos los de extensión ".txt"
Valora esta pregunta


-1
Dim fs As New FileSystemObject
Dim temporal As Folder
Dim Archivo As File
Set temporal = fs.GetFolder("Aqui va la ruta c:\ o lo que tu desees")
For Each Archivo In temporal.Files ' por cada archivo de la carpeta aqui te muestro atributos luego comentas es para que veas
MsgBox Archivo
MsgBox Archivo.Type
MsgBox Archivo.Name
' aqui pones el renombrar archivo es el nombre del archivo y despues del as el nombre que la vas a dar .. espero te sirva
Name Archivo As "Tu nuevo Nombre.xls"
Next Archivo