VBSで複数ファイル名の置換をしたい

Question

下記、フォルダ内にPDFファイルがあれば
全てファイル名の一部（"test"）を置きかえしたいと考えていますが
複数あるPDFファイルの内、1個しか変換されません。
何故でしょうか…。
ご教示いただけると助かります。
何卒よろしくお願いいたします。

Dim before
Dim after

Dim objFileSys
Dim objFolder
Dim objFile
Dim strExtension

Dim tmp '内容は別で指定済み
Dim tmpname

Dim myPath 'vbsがあるフォルダ名

'ファイルシステムを扱うオブジェクトを作成
Set objFileSys = CreateObject("Scripting.FileSystemObject")

'フォルダのオブジェクトを取得
Set objFolder = objFileSys.GetFolder(myPath)

'FolderオブジェクトのFilesプロパティからFileオブジェクトを取得
For Each objFile In objFolder.Files
'ファイルの拡張子を取得
strExtension = objFileSys.GetExtensionName(objFile.Name)

'If 文を使って拡張子毎の処理を記述する。
If strExtension = "pdf" Then
tmpname = Replace(tmp,".pdf","") '※ファイル名に不要な「.pdf」が入ってしまうため削除しています。

before = objFile.Name
after = Replace(before, "test",tmpname) 

'ファイル名変更
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
objFS.MoveFile before, after

End If
Next

Answer 1

特段、大きくは間違っては無さそうです。
念のため変更しようしているファイル名があっているか WScript.Echo で表示して確認してみて下さい。

'If 文を使って拡張子毎の処理を記述する。
If strExtension = "pdf" Then
    tmpname = Replace(tmp,".pdf","") '※ファイル名に不要な「.pdf」が入ってしまうため削除しています。

    before = objFile.Name
    after = Replace(before, "test",tmpname) 

    WScript.Echo "変更前：[" & before & "], 変更後：[" & after & "]"

    'ファイル名変更
    objFile.Name = after
End If

ちなみに、今回の問題とは関係ないですが、ファイル名を変更する際に FileSystemObject オブジェクトを再作成する必要はありません。
最初の方で用意した objFileSys が使いまわせます。
もしくは、objFile.Name = after でリネームすることが可能です。

'ファイル名変更
'Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
'objFS.MoveFile before, after

'方法１）
objFileSys.MoveFile before, after

'方法２）
objFile.Name = after

Comments

[cerophan]

ご教示いただき助かりました。うまく動かすことができました。ありがとうございました！