VBA to create folders and sub-folders

[TaskMaster]

Good morning all,

I have the following which checks to see if I have a folder for the current month in the following location, and if I don't creates one. Is it possible to tweak this so that it creates sub-folders within the month folder called "Data" and another subfolder in data called "Detailled"

Dim folderPath As String

folderPath = "\\users\TM\Desktop\Test\" & Format(Date, "mm. ") & Format(Date, "mmmm")

If Dir(folderPath, vbDirectory) = "" Then

    MkDir folderPath

End If

 

[Georgiboy]

Good morning,

Maybe as below:

Sub Macro1()
    Dim folderPath As String
    
    folderPath = "\\users\TM\Desktop\Test\" & Format(Date, "mm. ") & Format(Date, "mmmm")
    
    If Dir(folderPath, vbDirectory) = "" Then
        MkDir folderPath
        MkDir folderPath & "\Data"
        MkDir folderPath & "\Detailled"
    End If
End Sub

 

[TaskMaster]

Morning Georgiboy. Works perfectly, thank you

 

[Georgiboy]

You're welcome, thanks for the feedback.