最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
删除文件或文件夹
时间：2022-07-02 23:07:50 编辑：袖梨 来源：一聚教程网
删除文件或文件夹
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 ""
End Sub
相关文章
- 英雄联盟手游克格莫怎么连招-深渊巨口技能连招技巧 09-17
- 原神荒野狂猎在哪 荒野狂猎位置大全分享 09-17
- 禁闭求生2蜜蜂套配方是什么 蜜蜂套护甲制作材料一览 09-17
- 无主之地4复杂根须狙击枪怎么获得 复杂根须狙击枪获得方法 09-17
- 禁闭求生2蜜蜂护胫怎么做 蜜蜂护胫制作攻略 09-17
- 初音未来缤纷舞台兑换码最新 2025真实可用兑换码大全 09-17