Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "d:\xx.txt"
"删除文件函数
function sdDel(purl)
on error resume next
dim fso
set fso=server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile server.MapPath(purl),true
set fso=nothing
end function
--------------------------------------------------------------------------------
在执行删除之前，务必使用fileexists来判断文件是否存在。
下面是改良的程序：
function delfile(filepath)
imangepath=trim(filepath)
path=server.MapPath(imangepath)
SET fs=server.CreateObject("Scripting.FileSystemObject")
if FS.FileExists(path) then
FS.DeleteFile(path)
end if
set fs=nothing
end function
|
