8-07.asp

来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· ASP 代码 · 共 16 行

<%
'创建一个FileSystemObject对象的实例
set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
'创建一个File对象的实例
set MyFile = MyFileObject.CreateTextFile("c:\test.txt")
MyFile.WriteLine("http://www.gettop.net")
MyFile.Close()
set myfileobject = MyFileObject.GetFile("c:\\test.txt")
'复制文件
myfileobject.Copy "c:\\test4.txt" 
'移动文件
'myfileobject.Move "c:\\test5.txt" 
'删除文件
'myfileobject.Delete
%>