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
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
◎日記心情 (4)