Help: Create folders

[Iain17]

Or a rather simpler way of doing things.

Private Sub Command1_Click()
    
    mkDirStructure (Text1.Text)
    
End Sub

Private Sub mkDirStructure(stDir As String)
    
    If Dir$(stDir, vbDirectory) = "" Then
      
      mkDirStructure (Mid$(stDir, 1, InStrRev(stDir, "\") - 1))
      mkDir stDir
    End If
    
End Sub