【VBA】フォルダをまるっと削除する

この記事では
　・フォルダの中にサブフォルダ/ファイルがあっても、
　・フォルダをまるっと削除する方法
を記載します！
※フォルダの中が空でなくとも削除する方法を記載します。

削除したいフォルダの
　・存在確認して
　・存在する場合のみ削除
します！
※存在しないフォルダの削除を試みるとエラーとなるため。

VBAコード
備考(RmDirステートメントを使用したフォルダ削除について)
参考①
参考②
参考③

VBAコード

ここでは例として、デスクトップ配下のフォルダ「folder_001」を削除します。

Option Explicit

Sub sample()
    
    Dim fso As Object
    Dim folderFullPath As String
    
    '削除するフォルダのパスを指定
    folderFullPath = "C:\Users\user\Desktop\folder_001"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'フォルダの存在確認
    If fso.FolderExists(folderFullPath) Then
        '削除
        fso.DeleteFolder (folderFullPath)
    End If
    
    '後片付け
    Set fso = Nothing
    
End Sub

フォルダを削除する前に、フォルダの存在有無をしています(14行目)。
※存在しないフォルダの削除を試みるとエラーになるため。

「FileSystemObject」の「deleteFolder」メソッドにより、フォルダを削除します(16行目)。

フォルダをまるっと削除するために、「RmDirステートメント」ではなく「FileSystemObject」の「deleteFolder」メソッドを使用します。

上記で削除すると、ゴミ箱にも残らず完全に削除されます。
ゴミ箱に残るように削除したい場合は、Windows APIを使用して削除します。
※詳細なやり方は割愛します。それなりに面倒であるためオススメしません。