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
