保存为deleteTempFiles.vbs，双击即可运行

dim folder, file, mFSO, subfolder Set mFSO = CreateObject("Scripting.FileSystemObject")set folder=mFSO.GetFolder("C:\Users\msautotestuser\AppData\Local\Temp")'Delete filesdim dfFor Each file In folder.files    'df=DateDiff("h",file.DateCreated,Now)    'Create Date    df=DateDiff("h",file.DateLastModified,Now)   'Modify Date    If (df>2) Then    '2 hours ago        'MsgBox folder.path & "\" & file.Name & vbTab & file.DateCreated	'MsgBox folder.path & "\" & file.Name & vbTab & file.DateLastModified	On Error Resume Next        file.Delete()    End IfNext'Delete foldersset subfolder = Folder.subFoldersFor Each file In subfolder    'df=DateDiff("h",file.DateCreated,Now)    'Create Date    df=DateDiff("h",file.DateLastModified,Now)    'Modify Date    If (df>2) Then    '2 hours ago	On Error Resume Next        mFSO.deleteFolder(folder.path & "\" & file.Name)    end ifnext