VBS

【VBS】テキストファイルを作成するサンプルコード

テキストファイルを作成する

サンプルコード:最低限

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

VBSの作り方は下記参考

【VBS】VBSファイルの作り方と起動方法 VBSファイルの作り方 テキストエディタ(メモ帳等)にコードを記述し、任意の場所に保存する。 この時、ファイル名は「(任意...

ABOUT ME
ゼノン / Xenonhyx (管理人)
ゼノン / Xenonhyx (管理人)
愛知県出身。趣味は自作PCとゲーム。 略歴:エンジニア兼マーケター→フリーライター→エンジニア

COMMENT

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