5-01.実用文例：フォルダーを削除するには？

RmDir パス

すでに存在しているフォルダーを削除するには、RmDirステートメントを使います。「RmDir」は「Remove Directory」の略です。存在しないフォルダーを削除しようとするとエラーになります。

　下のサンプルでは、指定したフォルダーが存在するかどうかを確認した上で、フォルダーを削除しています。存在の確認方法については、左と同様です。

　なお、RmDirステートメントでフォルダーを削除するとき、削除対象のフォルダー内にファイルやサブフォルダーが存在するとエラーになります。フォルダーは空の状態でなければなりません。

JAMフォルダー内のMOMO2022フォルダーを削除

Sub Sample()

If Dir(“C:¥JAM¥MOMO2022”, vbDirectory) <> “” Then

RmDir “C:¥JAM¥MOMO2022”

Else

MsgBox “フォルダーがありません。”

End If

End Sub

実行例

Excel学習室