'获取你需要删除文件的路径,以下是通过表单获取地址,或者用其它方法获取文件地址
filepath=request.form("path")
'创建FSO
Set fso = CreateObject("Scripting.FileSystemObject")
'删除文件
fso.DeleteFile(Server.mappath(filepath))
'释放FSO
Set fso = nothing
<%Set fso=server.CreateObject("scripting.filesystemobject")
fso.deletefolder "F:\tt.txt" (删除的路径)
response.write "删除成功!"
Set fso=Nothing
%>
分三步: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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)