aspDeltextfile如何删除指定文件夹下的指定文件-创新互联

这篇文章将为大家详细讲解有关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)
%>

ASP删除文件，必须要使用服务器的FileSystemObject对象

创建删除文件函数：  

'删除文件（适合所有文件） 
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"

关于asp Deltextfile如何删除指定文件夹下的指定文件就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。