<%
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile("c:\b.txt", 2, True)
If Err.Number > 0 Then
Call Response.Write "Open Error"
Else
objFile.WriteLine & "書き込む文字列です。"
End If
objFile.Close
Set objFile = Nothing
Set objFso = Nothing
%>
|