asp Deltextfile删除指定文件夹下的指定文件实例教程

<%
dim path
Sub EmptyFolder(filespec) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.DeleteFolder(filespec) 
fso.CreateFolder(filespec) 
End Sub 
path=server.MapPath("/pic_1")
Emptyfolder(path)
%>

'删除文件（适合所有文件） 
Function Deltextfile(fileurl)'参数为相对路径 
 Set objFSO = CreateObject("Scripting.FileSystemObject") 
  fileurl = Server.MapPath(fileurl) 
  if objFSO.FileExists(fileurl) then '检查文件是否存在 
   objFSO.DeleteFile(fileurl) 
  end if 
 Set objFSO = nothing 
End Function

'删除网站根目录下的a.txt文件
Deltextfile "\a.txt"