'////////////////////////////////////////////////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
'創(chuàng)建文件夾 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
'創(chuàng)建文件 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
您可能感興趣的文章:
asp fso操作類asp下利用fso實(shí)現(xiàn)文件夾或文件移動(dòng)改名等操作函數(shù)使用FSO修改文件夾的名稱實(shí)現(xiàn)文件轉(zhuǎn)移防盜鏈fso asp生成靜態(tài)html的代碼ASP+FSO可視化目錄編歷（可增、刪、改）下載asp下用ADODB.Stream代替FSO讀取文本文件設(shè)置FSO權(quán)限功能的說明ASP FSO文件操作函數(shù)代碼（復(fù)制文件、重命名文件、刪除文件、替換字符串）
