删除文件服务器上的过期文件、特定类型文件、目录大小为零的空文件夹

Dim fso, startFolder, OlderThanDate 
Set fso = CreateObject("Scripting.FileSystemObject") 
'startFolder = "D:\IISLogTest\"
startFolder = "D:\IISLogTest\"
bkfolder = "D:\no\backup\"
OlderThanDate = DateAdd("d", -30, Date) ' 30 days 
DeleteOldFiles startFolder, OlderThanDate 
DeleteEmptyFolders startFolder 
Function DeleteOldFiles(folderName, BeforeDate)
Dim folder, file, fileCollection, folderCollection, subFolder 
Set folder = fso.GetFolder(folderName) 
Set fileCollection = folder.Files 
For Each file In fileCollection
GetAnExtension = fso.GetExtensionName(file)
If file.DateLastModified < BeforeDate or GetAnExtension = "mp3" or GetAnExtension = "exe" or GetAnExtension = "tmp" or GetAnExtension = "db" Then
fso.CopyFile file.Path, bkfolder ,true
fso.DeleteFile(file.Path)
End If 
Next 
Set folderCollection = folder.SubFolders 
For Each subFolder In folderCollection     
DeleteOldFiles subFolder.Path, BeforeDate 
Next 
End Function  

Function DeleteEmptyFolders(foldername) 
For Each Folder In fso.GetFolder(foldername).SubFolders    
DeleteEmptyFolders(Folder.Path)    
If Folder.Files.Count = 0 and Folder.SubFolders.Count = 0 Then         
fso.DeleteFolder(Folder.Path)     
End If 
Next 
End Function
wscript.echo "删除旧的文件及目录的操作已经完成!"