9 lines
271 B
Plaintext
9 lines
271 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
|
||
|
|
Set objFile = objFSO.GetFile("d:\test.txt")
|
||
|
|
objFile.Copy ("d:\test2.txt")
|
||
|
|
%>
|