7 lines
200 B
Plaintext
7 lines
200 B
Plaintext
|
<%
|
||
|
|
Dim objFSO, objFile
|
||
|
|
Set objFSO = CreateObject("Scripting.FileSystemObject")
|
||
|
|
Set objFile = objFSO.CreateTextFile("d:\test.txt", True)
|
||
|
|
objFile.WriteLine("This is a test.")
|
||
|
|
objFile.Close
|
||
|
|
%>
|