VBS

【VBS】ファイル名を変更するサンプルコード

ファイル名を変更

サンプルコード:最低限

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 = Nothing

VBSの作り方は下記参考

【VBS】VBSファイルの作り方と起動方法 VBSファイルの作り方 テキストエディタ(メモ帳等)にコードを記述し、任意の場所に保存する。 この時、ファイル名は「(任意...
ABOUT ME
ゼノン / Xenonhyx (管理人)
ゼノン / Xenonhyx (管理人)
愛知県出身。趣味は自作PCとゲーム。 略歴:エンジニア兼マーケター→フリーライター→エンジニア

COMMENT

メールアドレスが公開されることはありません。