'////////////////////////////////////////////////FSO操作///////////////////////////////////// '判断文件夹是否存在 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 '判断文件是否存在 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 '创建文件夹 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 '创建文件 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 '删除文件 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 '删除文件夹 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

　　推荐阅读

　　vbs或asp采集文章时网页编码问题

'/*========================================================================= ' * Intro 研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码，>>>详细阅读

本文标题：asp结合fso实现文件或文件夹创建删除等操作的函数

地址：http://www.17bianji.com/kaifa2/ASP/32182.html

 1/2    1