ASPでファイルへデータを出力する

Dim objFSO, objTS, write_data

Set objFSO = CreateObject("Scripting.FileSystemObject")

write_data = "hogeが書き込まれました"

'パラメーター数字によって、上書きor追記書き(ファイル末尾に出力データが追加）

Set objTSF = objFSO.OpenTextFile("C:\Inetpub\wwwroot\out.txt",数字 ,True)

'vbcrlfは改行

objTSF.Write("書き込んだデータ=" & write_data & vbcrlf)

objTS.Close

Set objTS = Nothing

Set objFSO = Nothing 

※OpenTextFileメソッドの第二引数

１ は ファイルを読取専用モード

２ はファイルを書き込み専用モード

８ はファイルを追加書き込みモード