Const&nbs
p;FilePath = "E:\
LOG" '定义目录
Set FSO = CreateObject("Scripting.File
SystemObject")
ShowS
ubfolders 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 &
amp; "\" & File.Name) '删除
'Wscript.Echo Subfolder.Path & "\" & File.Name '显示
End If
Next
End If
ShowSubFolders Subfolder
Next
End Sub