フォルダ内のファイルをまとめてリネーム

フォルダ内のファイルをまとめてリネームします。
例として4桁の連番にリネームしていますが、条件式をつけたりしていろいろバリエーションを広げることが可能かと。

TargetFolder = "C:\test\image"

Set FS = CreateObject("Scripting.FileSystemObject")
Set objFolder = FS.GetFolder(TargetFolder)

i = 0
For Each objFile In objFolder.Files
    'ファイル名を4桁の連番にします
    i = i + 1
    objFile.Name = Right("0000" & i, 4) & ".jpg"
Next

MsgBox i & "個のファイルを変換しました"
タイトルとURLをコピーしました