Asp删除文件操作

sub deletefiles(filename) 
if filename<>"" then
filename = server.MapPath(filename)
set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(filename)=true  then
fso.DeleteFile filename
end if
set fso=nothing
end if
end sub

%>

利用call deletefiles("../"&rs("bigpic4")) 这是调用方法

 

还有个是这样写的

 <%  
      Dim   objFSO         '声明一个名称为   objFSO   的变量以存放对象实例  
      Set   objFSO   =   Server.CreateObject("Scripting.FileSystemObject")  
        If   objFSO.FileExists(Server.MapPath("\newfile.asp"))   Then  
            objFSO.DeleteFile   Server.MapPath("\newfile.asp"),True  
            Response.Write   "已经成功地对文件"&Server.MapPath("\newfile.asp")&"进行了删除"  
        Else  
            Response.Write   Server.MapPath("\newfile.asp")&"不存在，无法进行删除"  
        End   If  
      Set   objFSO   =   Nothing             '释放   FileSystemObject   对象实例内存空间  
  %>