奇风's Blog

asp 删除文件 过程

Sub DeleteAFile(dfile)
'On Error Resume Next
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile(Server.MapPath(dfile))
MyFile.Delete true
set MyFile=nothing
set fso=nothing
End Sub

DeleteAFile("temp.asp")

修改一下，增加了，检查文件是不是存在的功能，代码如下：

Sub DeleteAFile(dfile)
'On Error Resume Next
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")

if fso.fileexists(Server.MapPath(dfile)) then
response.write "文件是存在的"
else
response.write "文件是不存的"
response.end
end if

Set MyFile = fso.GetFile(Server.MapPath(dfile))
response.write MyFile
response.end
MyFile.Delete true
set MyFile=nothing
set fso=nothing
End Sub