ASP,删除文件夹,文件.

今天受朋友所托,写了段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
%>