ASP,删除文件夹,文件.

最新推荐文章于 2021-08-10 18:49:23 发布

lzid2008

最新推荐文章于 2021-08-10 18:49:23 发布

阅读量1.1k

点赞数

分类专栏： ASP 文章标签： asp function path delete each 测试

本文链接：https://blog.csdn.net/lzid2008/article/details/1703334

版权

ASP 专栏收录该内容

24 篇文章 0 订阅

订阅专栏

今天受朋友所托,写了段Asp删除文件夹,文件的.

<%
'*****************************
  'Author:William
'Function : delete files of folder
'    每个月1号,删除
'Explain: 建立一个文件夹"TempFolder" ,放入一些测试文件.就可以了.
'*****************************
Dim theDay ' 返回几号
Dim Path,fso,f,fc

theToday_Day = Day(now())
If theToday_Day = "1" Then
  Set fso =CreateObject("Scripting.FileSystemObject") '建立一个FileSystemObject
  Path = Server.MapPath("TempFolder/")
  Set f = fso.GetFolder(Path)
  'Function Delete(Str,Path)   '========== 可以封装为函数 Begin
  Set fc = f.Files
  For   Each   f   In     fc
   If   fso.FileExists(f)   Then
    fso.DeleteFile(f)
   End If
   'If   fso.FolderExists(f)   Then
    'fso.DeleteFolder(f)
   'End If
  Next
  'End   Function       '========== 可以封装为函数 End
  'Response.Write("Ok")
End If
%>