VBAでフォルダ、サブフォルダの２層目まで作成。2層目は固定のフォルダ名。

Question

エクセルのVBAで管理表の業務をしています。

エクセルのvbaで1層目はセルの入力内容を引用、2層目は固定文字のフォルダを3つ作成したく。

1層目はエクセルのシートの文字列から引用してフォルダを作成することが出来るのですが、
2層目に固定文字のフォルダを3つ（例：回答、調査、進捗）のサブフォルダも同時に作りたく、色々試しているのですが
全くできません。

1層目は下記で問題なく作成できるのですが、2層目が全くできません。
色々調べたのですが、2層だけの例が見当たりませんでした。
簡単なことかもしれませんが、初心者であるため全く分からず困っています。

よろしくお願いします。

Sub フォルダ()
Dim lastrow As Long
Dim FolderName As String

lastrow = Cells(Rows.Count, 2).End(xlUp).Row
FolderName = "C:\Users\〇〇〇\Desktop\" & Cells(lastrow, 1).Value
If Dir(FolderName, vbDirectory) = "" Then
    MkDir FolderName
Else

       
End If

End Sub

Answer 1

If Dir(FolderName & "\回答", vbDirectory) = "" Then
    MkDir FolderName & "\回答"
End If

Comments

[Taka1108]

ありがとうございました。再度If関数をすればよかったのですね。