書き込み
Set objFileSys = CreateObject("Scripting.FileSystemObject")
'第二引数 2:上書きモード 8:追記モード
'第三引数 true:新ファイル作成 false:対象ファイルが必要
Set writeStream = objFileSys.OpenTextFile("ファイル名",2,True)
'1行づつ書き込み
writeStream.WriteLine "書き込む文字列です。"
writeStream.Close
Set writeStream = Nothing
Set objFileSys = Nothing
読み込み
Set objFileSys = CreateObject("Scripting.FileSystemObject")
'第二引数 1:読み込みモード
'第三引数 true:新ファイル作成 false:対象ファイルが必要
Set readStream = objFileSys.OpenTextFile("ファイル名",1,false)
'1行づつ読み込み
echo readStream.ReadLine
ReadStream.Close
Set ReadStream= Nothing
Set objFileSys = Nothing