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





