ファイル名を変更
サンプルコード：最低限
Dim str_folder, before, after
'フォルダとファイル名を指定 (afterが変更後の名前)
str_folder = "C:\TEST\"
before = "test.txt"
after = "test2.txt"
'名前を変更する
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
objFS.MoveFile str_folder & before, str_folder & after
Set objFS = Nothingサンプルコード：条件付与
Dim str_folder, before, after
'フォルダとファイル名を指定 (afterが変更後の名前)
str_folder = "C:\TEST"
before = "test.txt"
after = "test2.txt"
'フォルダ末尾に\が無い場合追加する
If right(str_folder, 1) <> "\" Then
str_folder = str_folder & "\"
End If
'beforeファイルが存在し、かつafterファイルが存在しない場合に変更する
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists(str_folder & before) = True And objFS.FileExists(str_folder & After) = False Then
objFS.MoveFile str_folder & before, str_folder & after
End If
Set objFS = NothingVBSの作り方は下記参考
【VBS】VBSファイルの作り方と起動方法
VBSファイルの作り方
テキストエディタ(メモ帳等)にコードを記述し、任意の場所に保存する。
この時、ファイル名は「(任意...
