Sub CreateAfile
Dim fso, MyFile
Set fso = server.CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(server.mappath("./")+"testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
End Sub
Dim fso, MyFile
Set fso = server.CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(server.mappath("./")+"testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
End Sub
例如:
虚拟目录是http://www.533.net下的test文件夹下的testfile.txt文件。
server.mappath("\test\testfile.txt")即可。