スキルアップ・問題解決なら、モーグにおまかせ！

Sub 今日の日付のフォルダ作成()
    Dim fld As String
    fld = "パス"
    fld = fld & "\" & Format(Date, "yyyymmdd")
    If Not Format(Date, "yyyymmdd") = Dir(fld, vbDirectory) Then
        MkDir fld
    Else
        MsgBox "本日の日付のフォルダはすでに存在します"
        Exit Sub
    End If
End Sub
 
↑のマクロで作られたフォルダ（今日の日付が付いたフォルダ）に別のフォルダ（例えばフォルダA）を作成するには、どのようなコードを足せば良いでしょうか？
 
よろしくお願いいたします。。

VBA初心者ちゃん さんの引用:

↑のマクロで作られたフォルダ（今日の日付が付いたフォルダ）に別のフォルダ（例えばフォルダA）を作成するには、どのようなコードを足せば良いでしょうか？
 
よろしくお願いいたします。。

WinArrowさん
 
ありがとうございます!!
できました。