Kopier mapper fra et sted til et andet!!!!

Private Sub Command1_Click()
    Set fso = CreateObject("Scripting.filesystemobject")
   
    Set fld = fso.GetFolder("C:\hula\")
   
    fld.Copy Text1.Text & fld.Name
   
    Set fso = Nothing
End Sub

Jeg har fået den til at oprette det første bibliotek med denne kode:

'opret kundemappe'
Private Sub Command4_Click()
MkDir "c:\" & navn.Text

End Sub

Men hvordan får jeg den til at oprret 5-6 mapper med faste navne i den mappe der lige er oprettet???

eks: navn, by, osv

Den melder fejl med "fso"

Hvad er det der skal slåes til???

Det eneste du skal have er en mappe på C:\der hedder Hula og en textbox hvor der står en sti som ender på \

VH CK

Jamen den melder fejl i FSO.... allerede i 2. linie!!!!!

Det er dette kode der skal ind der hvor du vil køre det

Set fso = CreateObject("Scripting.filesystemobject")
   
    Set fld = fso.GetFolder("C:\hula\")
   
    fld.Copy Text1.Text & fld.Name
   
    Set fso = Nothing

Min melder ikke fejl...

VH CK

Jeg har en textboks hvor der står KIM i, og med denne kode her:
----------------------------------------------------------------
Private Sub Command4_Click()
MkDir "c:\" & navn.Text
End Sub
----------------------------------------------------------------
Der laver den en mappe på C:\KIM

Så vil jeg gerne have at den ovenikøbet skal gå ind og lave 3 mapper i mappen C:\KIM, der skal hedder... Bil, cykel hus....

Og det hele skal bare lige gøres på 1 gang....

Kan det ikke lade sig gøre???????

SAG LUKKET!!!