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