'////////////////////////////////////////////////FSO操作///////////////////////////////////// [b]'判断文件夹是否存在[/b] Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FolderExists(Folder) Then    FolderExits=true Else    FolderExits=false End IF  End Function [b]'判断文件是否存在 [/b]Function FileExits(FileName) FileName=Server.Mappath(FileName) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FileExists(FileName) Then    FileExits=true Else    FileExits=false End IF  End Function [b]'创建文件夹[/b] Function CreateFolder(Folder) on error resume next Folder=Server.Mappath(Folder) Set FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.CreateFolder(Folder) if err>0 then    err.clear   CreateFolder=False else    CreateFolder=True end if  End function [b]'创建文件[/b] Function CreateFile(FileName,Content) on error resume next FileName=Server.Mappath(FileName) Set FSO = Server.CreateObject("Scripting.FileSystemObject") set fd=FSO.createtextfile(FileName,true) fd.writeline Content if err>0 then    err.clear   CreateFile=False else    CreateFile=True end if  End function [b]'删除文件[/b] function DeleteFile(FileName) on error resume next  Set FSO = Server.CreateObject("Scripting.FileSystemObject") if FSO.FileExists(FileName) then    FSO.DeleteFile FileName,true end if if err>0 then    err.clear   DeleteFile=False else    DeleteFile=True end if  end function  [b]'删除文件夹[/b] function DeleteFolder(Folder) on error resume next  Folder=server.MapPath(Folder) Set FSO = Server.CreateObject("Scripting.FileSystemObject") if FSO.FolderExists(Folder) then    FSO.Deletefolder Folder,true end if if err>0 then    err.clear   Deletefolder=False else    Deletefolder=True end if  end function