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