Nieuwe map aanmaken

[xps351]

Als je het aanmaken van de dossiermap voor een bedrijf en het toevoegen van een machine(map) uit elkaar wilt trekken kan je twee procedures maken:

Option Compare Database
Option Explicit

Private Sub MaakBedrijf_Click()
'Dossiermap voor een bedrijf aanmaken

Dim fs As Object
Dim strNewFolder As String

Set fs = CreateObject("Scripting.FileSystemObject")

strNewFolder = "D:\" & Me.[NaamBedrijf] & "_" & Me.[Plaats] & "_" & Me.[Klantnummer]

If Not fs.FolderExists(strNewFolder) Then
    MkDir strNewFolder
    MkDir strNewFolder & "\Machines"
    MkDir strNewFolder & "\PDF_bestanden"
    MsgBox "Dossiermap (" & strNewFolder & ") aangemaakt"
Else
    MsgBox "Dossiermap bestaat al"
End If

End Sub

Private Sub MaakMachine_Click()
'Map voor een machine in de machine-map van de dossiermap van het bedrijf aanmaken

Dim fs As Object
Dim strNewFolder As String

Set fs = CreateObject("Scripting.FileSystemObject")

strNewFolder = "D:\" & Me.[NaamBedrijf] & "_" & Me.[Plaats] & "_" & Me.[Klantnummer] & "\Machines\"

If Not fs.FolderExists(strNewFolder) Then
    MsgBox "Map (" & strNewFolder & ") bestaat niet. Maak die eerst aan"
Else
    MkDir strNewFolder & Me.MachineId & "_" & Me.Merk & "_" & Me.Type
    MsgBox "Machine (" & Me.MachineId & "_" & Me.Merk & "_" & Me.Type & ") in map (" & strNewFolder & ") aangemaakt"
End If

End Sub

 

[DirkJansen]

Sorry, had ik niet gezien. Plaats eens vierkante haken om de laatste drie velden.
Dus

Me.[MachineId] & "_" & Me.[Merk] & "_" & Me.[Type]

Die had ik al gezien en getest. Fout blijft zelfde

 

[AHulpje]

Zitten er karakters in de diverse velden die niet toegestaan zijn in de naam van een directory?
Plaats eventueel de waarde van strNewFolder eens hier.

Vergeet bovenstaande, is nog niet van toepassing op het moment dat de fout optreedt.
Maar controleer wel even de inhoud van de gebruikte velden.

 

[DirkJansen]

Zitten er karakters in de diverse velden die niet toegestaan zijn in de naam van een directory?
Plaats eventueel de waarde van strNewFolder eens hier.

Vergeet bovenstaande, is nog niet van toepassing op het moment dat de fout optreedt.
Maar controleer wel even de inhoud van de gebruikte velden.

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

 

[AHulpje]

Probeer dit eens:

Private Sub MachineMap_Click()
    Dim strNewFolder As String
    
    MsgBox Me.[NaamBedrijf]
    MsgBox Me.[Plaats]
    MsgBox Me.[KlantNummer]
    strNewFolder = strNewFolder = "C:\Users\User\Documents\D-base\ClassicParts\KlantenDossier\" & Me.[NaamBedrijf] & "_" & Me.[Plaats] & "_" & Me.[KlantNummer] & "\Machines\"
    CreateDir strNewFolder
    MsgBox "Machinemap (" & strNewFolder & ") aangemaakt"
End Sub