基本的なことですが、_φ(°-°=)メモメモ
ファイルへ書き込む時のサンプル
<%
'ファイルシステムオブジェクトの作成
Set fs = CreateObject("Scripting.FileSystemObject")
'ファイルを開く(上書き)
Set output = fs.CreateTextFile("c:\inetpub\wwwroot\output.data", True)
'出力
output.write "文字列をファイルへ出力します" & vbCrLf
'ファイルを閉じる
output.close
'オブジェクトの破棄
set output = nothing
set fs = nothing
%>
ファイルから読込む時のサンプル
<%
'ファイルシステムオブジェクトの作成
Set fs = CreateObject("Scripting.FileSystemObject")
'ファイルを開く
Set read = fs.CreateTextFile("c:\inetpub\wwwroot\input.data", False)
'読込み
Do While read.AtEndOfStream <> True
str = read.ReadLine
response.write "> " & str & vbCrLf
Loop
'ファイルを閉じる
read.close
'オブジェクトの破棄
set read = nothing
set fs = nothing
%>
CreateTextFileの第2引数で上書きの設定をします。Trueだと上書きされます。
ファイルのパスは絶対パスのみ有効(らしい)
もしかしたらOpenTextFileを使ったほうが良いかもしれません。
ファイルへの出力時は、改行コードを「vbCrLf」を使用しましょう。
コメント