フォルダ内の全サブフォルダを削除

' ----------------------------------------------------------------
' 機能概要: 指定したフォルダ内の全フォルダを削除
' ----------------------------------------------------------------
Sub prcフォルダ内の全フォルダ削除()

    Dim fso As FileSystemObject
    Dim strFolderPath As String
    
    ' 削除対象のフォルダパスを設定 ※注！末尾は「\*」
    strFolderPath = CurrentProject.Path & "\テストフォルダB\*"
    
    Set fso = New FileSystemObject

    Call fso.DeleteFolder(strFolderPath) ' すべてのフォルダを削除

    'オブジェクト解放
    Set fso = Nothing
End Sub