' [256.xls]



' [Module1] のコード
'★★☆　MS-DOSのコマンドを呼び出してフォルダごとすべて削除する　☆★★

Option Explicit

Sub start()
Dim RetVal As Variant
Dim dirname As String

    dirname = InputBox("[注意] フォルダごとすべて削除します" & Chr(10) _
        & "フォルダ名をフルパスで指定して下さい", "フォルダの削除")
        
        If dirname = "" Then
            MsgBox "キャンセルが選択されました"
            Exit Sub
        End If
        
    'MS-DOSの外部コマンドを実行します
    RetVal = Shell("command.com /c deltree /Y " & dirname, 2)

End Sub