Create folder name with timestamp and create 4 additional folders within new folder help.

[iP_123]

Good evening,

Is there a way using macro to create a month folder with a time stamp? The folder name will be the month name in cell B3 of sheet1 and can the time stamp be HH:MM:SS? Lastly can the macro create 4 additional folders within the newly created folder, if that is possible.
The four folders can be named based on the names in cell A1:A4 on sheet1.

I appreciate the assistance.

ip

 

[lrobbo314]

Try this.

Sub MakeFolders()
Dim FSO As Object:      Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Path As String:     Path = "C:\Users\USERNAME\Desktop\" 'Change to your needs
Dim Mnth As String:     Mnth = Range("B3").Value
Dim AR() As Variant:    AR = Range("A1:A4").Value

Path = Path & Mnth & " " & Format(Now(), "hh.nn.ss")
FSO.createfolder Path

For i = LBound(AR) To UBound(AR)
    FSO.createfolder Path & "\" & AR(i, 1)
Next i

Set FSO = Nothing
End Sub

 

[iP_123]

Thank you Irobbo314.

iP