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

文件夹pic_1下有1.xls和1.xls

清空文件夹：

<%

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)

%>

删除文件:

1、创建删除文件函数：

'删除文件（适合所有文件）

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

2、调用删除文件函数：

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

Deltextfile "a.txt"