任意フォルダ内のサブフォルダを全て削除 →新たに10個のサブフォルダを作成

Sub CreateSubfolders()
    Dim fso As FileSystemObject
    Dim parentFolder As Folder
    Dim subFolder As Folder
    Dim folderPath As String
    Dim i As Integer
    
    ' フォルダAのパスを設定
    folderPath = "C:\フォルダAのパス"
    
    ' FileSystemObjectのインスタンスを作成
    Set fso = New FileSystemObject
    
    ' フォルダAを取得
    Set parentFolder = fso.GetFolder(folderPath)
    
    ' フォルダA内のすべてのサブフォルダを削除
    For Each subFolder In parentFolder.SubFolders
        subFolder.Delete True
    Next subFolder
    
    ' 新たに10個のサブフォルダを作成
    For i = 1 To 10
        fso.CreateFolder folderPath & "\サブフォルダ" & i
    Next i
    
    ' メッセージボックスで完了を通知
    MsgBox "サブフォルダの初期化と新規作成が完了しました。", vbInformation
    
    ' オブジェクトの解放
    Set fso = Nothing
    Set parentFolder = Nothing
End Sub