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&"|"&File.DateLastModified '显示 End If Next End If ShowSubFolders Subfolder Next End Sub
