Renomear arquivos de uma pasta

 

files

Imagine que temos que renomear arquivos de Excel em uma pasta.

Com o código abaixo, vamos escolher uma pasta e vamos colocar a palavra “new addition” antes de cada nome de arquivo:

Dim fso, fsoFolder, fsoFile, strPath, strName
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoFolder = fso.GetFolder("C:Documents and SettingsZacharyDesktopTest")
For Each fsoFile In fsoFolder.Files
    strName = fsoFile.Name
    strPath = Left(fsoFile.Path, Len(fsoFile.Path) - Len(strName))
    fso.CopyFile strPath & strName, strPath & "new_addition" & strName
    fso.DeleteFile strPath & strName
Next