验证文件是否存在并删除

 '参数：文件名(相对路径)
 Public Function DeleteAFile(filepath)
  If filepath = "" Or IsNull(filepath) Then Exit Function
  Dim i,fileSplit,temp,fileName,fileExtName,tempPath
  fileSplit = Split(filepath,"|")
  On Error Resume Next
  For i = 0 To UBound(fileSplit)
   temp = Server.Mappath(fileSplit(i))
   fileExtName = GetFileExtName(filepath)(1)
   tempPath = Replace(temp,"."& fileExtName,"*."& FileExtName)
   If oFso.FileExists(temp) Then oFso.DeleteFile(tempPath)
  Next
  If Err <> 0 Then Err.Clear
 End Function
 
 Dim forumName,urlPath
 Dim fso
 forumName = request.queryString("oppara")
 If forumName = "" Then lib.alertError 3,"未指定表单路径",-1
 urlPath = request.queryString("opurl")
 If urlPath = "" Then lib.alertError 3,"未指定文件路径",-1
 set fso = new FileLib
 response.Write(urlPath)
 Call fso.DeleteAFile(urlPath)
%>

<%
 Set fso = nothing
%>