Nieuwe map aanmaken

[DirkJansen]

Ik heb de onderstaande code om klantdossiermappen aan te maken in mijn klantenbestand. Graag zou ik bij het aanmaken van een nieuwe machine kaart voor klant in zijn dossiermap een machine aan te maken [MachineId]+[Merk]+[Type}. Nu krijg ik hiervoor de code niet goed. Kan iemand mij helpen met code hiervoor?
Alvast bedankt.

Private Sub KlantMap_Click()
Dim fs As Object

Dim strNewFolder As String

Set fs = CreateObject("Scripting.FileSystemObject")

strNewFolder = "C:\Users\User\Documents\D-base\Bedrijfx\KlantenDossier\" & Me.[NaamBedrijf] & "_" & Me.[Plaats] & "_" & Me.[Klantnummer]


If Not fs.FolderExists(strNewFolder) Then

MkDir strNewFolder
MkDir strNewFolder & "\Machines"
MkDir strNewFolder & "\PDF_bestanden"

Set fs = CreateObject("Scripting.FileSystemObject")

MsgBox "Dossiermap(" & strNewFolder & ") aangemaakt"

Else
MsgBox "Dossiermap bestaat al"

End If

End Sub

 

[xps351]

Dat lijkt me op de veldnamen na identiek aan wat hier staat (ik ga er vanuit dat die code werkt).
Wat heb je al geprobeerd?
Wat gaat er fout (foutmelding?)?

 

[AHulpje]

Bestaat deze map:

C:\Users\User\Documents\D-base\Bedrijfx\KlantenDossier\

anders gaat het fout.
Overigens is de tweede CreateObject overbodig.

Bericht automatisch samengevoegd: 20 minuten geleden

En zo gaat het aanmaken van een dieper liggende map een stuk makkelijker:

Sub CreateDir(strPath As String)
    Dim elm As Variant
    Dim strCheckPath As String

    strCheckPath = ""
    For Each elm In Split(strPath, "\")
        strCheckPath = strCheckPath & elm & "\"
        If Len(Dir(strCheckPath, vbDirectory)) = 0 Then MkDir strCheckPath
    Next
End Sub

 

[DirkJansen]

Dat lijkt me op de veldnamen na identiek aan wat hier staat (ik ga er vanuit dat die code werkt).
Wat heb je al geprobeerd?
Wat gaat er fout (foutmelding?)?

Deze werkt, alleen wil ik nu een map aanmaken in de aangemaakte directorie

C:\Users\User\Documents\D-base\Bedrijfx\KlantenDossier\" & Me.[NaamBedrijf] & "_" & Me.[Plaats] & "_" & Me.[Klantnummer]\Machines\New_Folder

Gaat volgens mij mis in " & Me.[NaamBedrijf] & "_" & Me.[Plaats] & "_" & Me.[Klantnummer]