清除Windows臨時目錄:
Option Explicit
Dim WshShell, WshSysEnv, Directories, Item
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("Process")
Directories = Array ( _
WshShell.ExpandEnvironmentStrings(WshSysEnv("TEMP")), _
WshShell.ExpandEnvironmentStrings(WshSysEnv("TMP")), _
"C:\my application", _
"C:\Recycled", _
"D:\Recycled" _
)
On Error Resume Next
For Each Item In Directories
If MsgBox("删除" & Item & "中所有檔案和目錄嗎?", vbYesNo) = vbYes Then
WshShell.Exec "cmd /k rd /q/s """ & Item & """"
WshShell.Exec "cmd /k md """ & Item & """"
End If
Next
儲存為.vbs檔案...運作及可~~