其实你也行.....

清除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文件...运行及可~~