ASP删除文件,必须要使用服务器的FileSystemObject对象
1、创建删除文件函数:
'删除文件(适合所有文件)Function Deltextfile(fileurl)'参数为相对路径
Set objFSO = CreateObject("Scripting.FileSystemObject")
fileurl = Server.MapPath(fileurl)
if objFSO.FileExists(fileurl) then '检查文件是否存在
objFSO.DeleteFile(fileurl)
end if
Set objFSO = nothing
End Function
2、调用删除文件函数:
'删除网站根目录下的a.txt文件Deltextfile "\a.txt"
分三步:1:循环文件夹中的所有文件
2:判断文件是否后缀为txt
3:是后缀为txt的文件则执行删除
................................................................
如果能指定具体文件名则可直接执行删除
DIM X
X="a.8.txt"
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath(X)) Then
objFSO.DeleteFile Server.MapPath(X),True
end if
Set objFSO = Nothing
function DelFiles(文件路径)set FSO=server.CreateObject("Scripting.FileSystemObject")
if FSO.FileExists(Furl) then
FSO.DeleteFile server.MapPath(Furl),true
set FSO=nothing
'response.Write("删除成功!")
else
'response.Write("文件不存在!")
end if
end function
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)