Folders by date

[AndyB63UK]

Is there a way to create folders\sub folders determined by a date in a field, if they dont already exist. eg Date entered in cell B8 as dd/mm/yy but displayed as ddd dd mm yy. file to be exported as G:\Event Sheets\sheet1 name\yyyy\mm mmm\dd.mm.yy - Value B9.pdf

my current code for this is

Private Sub CommandButton1_Click()
    
    Dim newFile As String, fName As String
    fName1 = Range("B8").Value
    fName2 = Range("B9").Value
    newFile = fName1 & " - " & fName2 & ".pdf"

    With Sheet1
        .AutoFilterMode = False
        .Range("D1").AutoFilter
        .Range("D1").AutoFilter Field:=4, Criteria1:=1
    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "G:\Event Sheets\" & newFile, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
        
        .Range("D1").AutoFilter
    End With

End Sub