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