A script to create folders needed

[kelly mort]

Hi All,
I need a script that will use the "ThisWorkbook.Path" and looks for a folder called "sFiles" in the workbook path and if not found, then create it and inside it, create other folders matching the names for all items in TextBox2.

TextBox2 is populated by TextBox1

Thanks in advance
Kelly

 

[kelly mort]

Sub PassportFolderCreate()
Dim l As Long    
    With ActiveWorkbook
    If .Path = "" Then Exit Sub
        mainPicturesFolderPath = .Path & "\" & "PASSPORT PICTURES"
    End With
        If Dir(mainPicturesFolderPath, vbDirectory) = vbNullString Then MkDir mainPicturesFolderPath
        For l = 0 To UserForm1.reg3.ListCount - 1
            If Dir(mainPicturesFolderPath & UserForm1.reg3.ListIndex(l), vbDirectory) = vbNullString Then MkDir mainPicturesFolderPath & UserForm1.reg3.ListIndex(l)
        Next l
  End Sub

I have tried to come up with this code yet it is not getting me results

Any idea what the issue is?

I get an error type mismatched then highlights the if line between the for loop.

Please help