<%
dim fso,path1
'创建一个FileSystemObject对象的实例
set fso = Server.CreateObject("Scripting.FileSystemObject")
'创建一个File对象的实例
path1=server.MapPath("10-07-1.htm")
path2=server.MapPath("10-07-2.txt")
path3=server.MapPath("10-07-3.doc")
set MyFile1 = fso.CreateTextFile(path1)
MyFile1.Close()
set myfile2 = fso.GetFile(path1)
'复制文件
myfile2.Copy path2 
'移动文件
if not fso.fileexists(path3) then
myfile2.Move path3 
end if
%>

