保存为deleteTempFiles.vbs，双击即可运行
dim folder, file, mFSO, subfolderSet mFSO = CreateObject("Scripting.FileSystemObject")
set folder=mFSO.GetFolder("C:\Users\msautotestuser\AppData\Local\Temp")
'Delete files
dim df
For Each file In folder.files'df=DateDiff("h",file.DateCreated,Now) 'Create Datedf=DateDiff("h",file.DateLastModified,Now) 'Modify DateIf (df>2) Then '2 hours ago'MsgBox folder.path & "\" & file.Name & vbTab & file.DateCreated'MsgBox folder.path & "\" & file.Name & vbTab & file.DateLastModifiedOn Error Resume Nextfile.Delete()End If
Next
'Delete folders
set subfolder = Folder.subFolders
For Each file In subfolder'df=DateDiff("h",file.DateCreated,Now) 'Create Datedf=DateDiff("h",file.DateLastModified,Now) 'Modify DateIf (df>2) Then '2 hours agoOn Error Resume NextmFSO.deleteFolder(folder.path & "\" & file.Name)end if
next
