※VBscript－發卡布洛


發卡布洛 所有內容 採用
創用 CC 姓名標示-非商業性-禁止改作 2.5 台灣 授權條款授權.

目前分類：※VBscript (1)

瀏覽方式：標題列表簡短摘要

Apr 26 Wed 2023 15:54
VBScript｜一個按鍵清除資源回收桶的內容

On Error Resume Next

Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd.exe /c echo Y|PowerShell.exe -NoProfile -Command Clear-RecycleBin -Confirm:$false", 0, True

If Err.Number = 0 Then
    MsgBox "資源回收筒已經被清空。"
Else
    MsgBox "無法清空資源回收筒：" & vbCrLf & Err.Description
End If

Set objShell = Nothing

bshadow 發表在痞客邦留言(0) 人氣()