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