[フォルダを削除する]

C:\Work フォルダを削除しています。
読み取り専用フォルダも削除します。

【ソースコード】

[tips0081.vbs]
Option Explicit
On Error Resume Next

Dim objFSO          ' FileSystemObject
Dim strRmFolder     ' 削除するフォルダ名

strRmFolder = "C:\Work"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    objFSO.DeleteFolder strRmFolder, True
    If Err.Number = 0 Then
        WScript.Echo strRmFolder & " を削除しました。"
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFSO = Nothing

【実行結果】

C:\> cscript //NoLogo tips0081.vbs
C:\Work を削除しました。