FileSystemObject对文件复制、移动、删除的操作
利用fso对文件进行新建、复制、移动、删除，以下代码请分开测试，不然会看不出来结果的。<%
'创建一个FileSystemObject的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'在当前目录下创建一个要进行操作的文件test.html
filename=server.mappath("./")&"\test.html"
Set MyFile=MyFileObject.CreateTextFile(filename)
MyFile.WriteLine("欢迎光临ASP编程网！") '向test.html中输入文字
MyFile.Close
'复制文件操作，复制后的文件名为test2.html
newfilename=server.mappath("./")&"\test2.html"
MyFileObject.CopyFile filename,newfilename
'移动文件操作,移动后的文件名为test3.html,注意移动后，当前目录下的test.html就没有了
movefilename=server.mappath("./")&"\test3.html"
MyFileObject.MoveFile filename,movefilename
'删除这些文件
MyFileObject.DeleteFile newfilename
MyFileObject.DeleteFile movefilename
%>
-------------------------------------------------------------------------------------------------------
ASP下用FSO移动（改名）文件夹或文件
‘例1：想把当前目录下的a文件夹，移动到当前目录下的b文件夹下：MoveFolder("a","b/a")
‘例2：想把当前目录下的a文件夹，移动到当前目录下的b文件夹下并改名为c：MoveFolder("a","b/c")
‘例2：想把当前目录下的a文件夹，改名成b：MoveFolder("a","b")
Public Function MoveFolder(Byval sFolder,Byval nFolder)
if sFolder="" or nFolder="" then MoveFolder="参数错误" : Exit Function
On Error Resume Next
Dim objFSO
err=0
Folder=Server.MapPath(sFolder)
Folder1=Server.MapPath(nFolder)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder Folder,Folder1
Set objFSO = Nothing
MoveFolder = Err.Description
if err=0 then MoveFolder = "文件夹 " & sFolder & " 已经移动到 " & nFolder
End Function
若将代码中的：objFSO.MoveFolder改为objFSO.MoveFile则为对文件操作。
