用實現ASP批量刪除目錄及文件的代碼
2024-05-04 11:01:24
供稿：網友
函數過程：
復制代碼 代碼如下:
<%
'del.asp
dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles
set fso=server.CreateObject("Scripting.FileSystemObject")
sub delfolder(sPath)
If (fso.FolderExists(server.MapPath (sPath))) then
set tmpfolder=fso.GetFolder(server.MapPath (sPath))
set tmpfiles=tmpfolder.files
for each tmpfile in tmpfiles
fso.DeleteFile (tmpfile)
next
set tmpsubfolder=tmpfolder.SubFolders
for each tmpfolder in tmpsubfolder
response.Write spath&"/"&tmpfolder.name&"<br>"
delfolder(spath&"/"&tmpfolder.name )
next
fso.DeleteFolder (server.MapPath (sPath))
end if
end sub
%>
調用方法：
復制代碼 代碼如下:
<%
'調用例子
'del.asp放到要刪除的目錄同一層，要刪除的目錄存在且其下有若干子目錄和文件，要對該目錄具有修改權限。
delfolder("目錄名")
%>
您可能感興趣的文章:
PHP文件操作實現代碼分享Asp.Net 文件操作基類(讀取,刪除,批量拷貝,刪除,寫入,獲取文件夾大小,文件屬性,遍歷目錄)Javascript之文件操作Javascript----文件操作jsp文件操作之讀取篇jsp文件操作之追加篇jsp文件操作之寫入篇ASP FSO文件操作函數代碼（復制文件、重命名文件、刪除文件、替換字符串）
