当前位置:编程学习 > asp >>

删除文件或文件夹

删除文件或文件夹
Sub DelAll()
 Dim FolderId,FileId,ThisDir,FileNum,FolderNum,FilePath,FolderPath
 FolderId = Split(Request.Form("FolderId"),",")
 FileId = Split(Request.Form("FileId"),",")
 ThisDir = trim(Request.Form("ThisDir"))
 FileNum=0
 FolderNum=0
 If Ubound(FolderId) <> -1 then  '删除文件夹
  For i = 0 to Ubound(FolderId)
   FolderPath = Server.MapPath(UploadFolder) & ThisDir & "" & trim(FolderId(i))
   If Fso.FolderExists(FolderPath) then
    Fso.DeleteFolder FolderPath,true
    FolderNum = FolderNum + 1
   End If
  Next
 End If
 If Ubound(FileId) <> -1 then  '删除文件
  For j = 0 to Ubound(FileId)
   FilePath = Server.MapPath(UploadFolder) & ThisDir & "" & trim(FileId(j))
   If Fso.FileExists(FilePath) then
    Fso.DeleteFile FilePath,true
    FileNum = FileNum + 1
   End If
  Next
 End If
 Response.write "<script>alert('n恭喜,删除成功nn"& FolderNum &" 个文件夹被删除n"& FileNum &" 个文件被删除');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"","\") &"')</script>"
End Sub

补充:asp教程,高级应用 
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,