Const FilePath = "E:\log" '定义目录
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder(filepath)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set Files = subfolder.Files
If Files.Count <> 0 Then
For Each File In Files
If File.DateLastModified < Now - 30 Then '判断是否超过30天
FSO.DeleteFile(Subfolder.Path & "\" & File.Name) '删除
'Wscript.Echo Subfolder.Path & "\" & File.Name '显示
End If
Next
End If
ShowSubFolders Subfolder
Next
End Sub