VBScript ファイルの読み書き(テキストファイル)

■ファイルの読みサンプル

Dim PATH : PATH = "C:\temp\data.txt"
Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")

'--- 読み込み ---
Dim oFILE : Set oFILE = oFS.OpenTextFile(PATH, 1) ' 1 = 読み込みモード
Do Until oFILE.AtEndOfStream
    WScript.Echo oFILE.ReadLine
Loop

oFILE.Close
Set oFILE = Nothing
Set oFS = Nothing

■ファイルの書きサンプル

Dim PATH : PATH = "C:\temp\data.txt"
Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")

'--- 書き込み ---
Dim oFILE : Set oFILE = oFS.CreateTextFile(PATH, True)
oFILE.WriteLine "Line1"
oFILE.WriteLine "Line2"

oFILE.Close
Set oFILE = Nothing
Set oFS = Nothing