Nieuwe map aanmaken

DirkJansen · Vandaag om 13:28

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 · Vandaag om 15:10

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 · Vandaag om 15:37

Bestaat deze map:

Code:

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

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

Bericht automatisch samengevoegd: Vandaag om 16:09

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

Code:

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 · Vandaag om 16:24

xps351 zei:
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]

xps351 · Vandaag om 16:59

Bedoel je zoiets?

Code:

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"
    MkDir strNewFolder & "\Machines\" & Me.MachineId & "_" & Me.Merk & "_" & Me.Type
   
    MsgBox "Dossiermap (" & strNewFolder & ") aangemaakt"
Else
    MsgBox "Dossiermap bestaat al"
End If

Misschien moet je het aanmaken van de bedrijfsmap en de machinemap(pen) wel uit elkaar trekken. Ik neem aan dat een bedrijf meerdere machines kan hebben. Bovendien vraag ik me af hoe het zit met de achterliggende database. Je stelt je vraag in het Access forum, dus ik neem aan dat er ook een database is en dat die synchroon moet lopen met de mappenstructuur.

DirkJansen · Vandaag om 17:27

xps351 zei:
Bedoel je zoiets?

Code:

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" MkDir strNewFolder & "\Machines\" & Me.MachineId & "_" & Me.Merk & "_" & Me.Type MsgBox "Dossiermap (" & strNewFolder & ") aangemaakt" Else MsgBox "Dossiermap bestaat al" End If

Misschien moet je het aanmaken van de bedrijfsmap en de machinemap(pen) wel uit elkaar trekken. Ik neem aan dat een bedrijf meerdere machines kan hebben. Bovendien vraag ik me af hoe het zit met de achterliggende database. Je stelt je vraag in het Access forum, dus ik neem aan dat er ook een database is en dat die synchroon moet lopen met de mappenstructuur.

Hoi Peter,
Ik wil idd de aan te maken machines los maken van de dossiermap, via de machinekaart bij aanmaak nieuwe machine. De mappen Machines en PDF zijn als aangemaakt bij aanmaak nieuwe klant. Maar daar loop ik vast. Deze mappen worden alleen gebruikt voor exports en informatie.

xps351 · Vandaag om 17:36

Geef dan even aan wat verwacht. Ik ben even de draad kwijt.

AHulpje · Vandaag om 17:49

Het laatste stukje van je mapnaam gaat fout

Code:

Me.[Klantnummer]\Machines\New_Folder

moet worden

Code:

Me.[Klantnummer] & "\Machines\New_Folder"

Met de Sub CreateDir uit #3 kun je in één keer een hele gelaagde directory aanmaken, dus

Code:

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

DirkJansen · Vandaag om 18:43

xps351 zei:
Geef dan even aan wat verwacht. Ik ben even de draad kwijt.

Excuus.
Via de klantkaart worden bij aanmaak klant de dossiermappen Machines en PDF voor de klant aangemaakt.
Als er bij deze klant een machine wordt aangemaakt wil ik een machine map aanmaken in de map machines ([MachineID]_[Merk]_[Type]).

AHulpje · Vandaag om 19:12

Dus:

Code:

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

DirkJansen · Vandaag om 20:39

Ik krijg deze fout bij aanroepen

xps351 · Vandaag om 20:40

DirkJansen zei:
Als er bij deze klant een machine wordt aangemaakt wil ik een machine map aanmaken in de map machines ([MachineID]_[Merk]_[Type]).

Maar dat is toch wat de code uit post #5 doet?

edmoor · Vandaag om 20:51

DirkJansen zei:
Ik krijg deze fout bij aanroepen

Vervang CreateDir eens door fs.CreateDirectory

DirkJansen · Vandaag om 21:00

Ik heb het nu aangepast in;

Private Sub MachineMap_Click()
Dim fs As Object
Dim strNewFolder As String

Set fs = CreateObject("Scripting.FileSystemObject")

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

If Not fs.FolderExists(strNewFolder) Then
MkDir strNewFolder
MkDir strNewFolder & " & Me.MachineId & "_" & Me.Merk & "_" & Me.Type

MsgBox "Machinemap (" & strNewFolder & ") aangemaakt"
Else
MsgBox "Machinemap bestaat al"
End If

End Sub

Maar krijg Compileerfout Syntaxisfout

Ik kom er niet uit

AHulpje · Vandaag om 21:07

En nog steeds is fout (zie ook #8):

Code:

Me.[Klantnummer]\Machines\

dat moet zijn

Code:

Me.[Klantnummer] & "\Machines\"

En maak het jezelf makkelijk door de Sub CreateDir uit #3 te gebruiken.

edmoor · Vandaag om 21:07

Dit:

Code:

Me.[Klantnummer]\Machines\"

Moet zijn:

Code:

Me.[Klantnummer] & "\Machines\"

Edit:
AHulpje was me voor.

DirkJansen · Vandaag om 21:26

Sorry, ik loop compleet vast.

Kunt u complete code aangeven, ik ben nu volgens mij alles door elkaar aan het halen.
Ik heb een chronische en complexe multisysteemziekte. Ik weet wat ik maken wil, maar in m'n hooft gaat nu alles door elkaar en krijg de code niet goed. Excuses voor de vele vragen.

AHulpje · Vandaag om 21:34

Vervang je huidige Sub MachineMap_Click() door

Code:

Private Sub MachineMap_Click()
    Dim strNewFolder As String
   
    strNewFolder = "C:\Users\User\Documents\D-base\Bedrijf_x\KlantenDossier\" & Me.[NaamBedrijf] & "_" & Me.[Plaats] & "_" & Me.[Klantnummer] & "\Machines\" & Me.MachineId & "_" & Me.Merk & "_" & Me.Type
    CreateDir strNewFolder
    MsgBox "Map aangemaakt: " & strNewFolder
End Sub

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

En anders morgen met een fris hoofd weer verder.

DirkJansen · Vandaag om 21:52

AHulpje zei:

Vervang je huidige Sub MachineMap_Click() door

Code:

Private Sub MachineMap_Click()
    Dim strNewFolder As String
  
    strNewFolder = "C:\Users\User\Documents\D-base\Bedrijf_x\KlantenDossier\" & Me.[NaamBedrijf] & "_" & Me.[Plaats] & "_" & Me.[Klantnummer] & "\Machines\" & Me.MachineId & "_" & Me.Merk & "_" & Me.Type
    CreateDir strNewFolder
    MsgBox "Map aangemaakt: " & strNewFolder
End Sub

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

En anders morgen met een fris hoofd weer verder.

Bedankt voor je moeite, krijg nu volgende melding

AHulpje · Vandaag om 21:57

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

Code:

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

Nieuwe map aanmaken

Gebruiker

Gebruiker

Terugkerende gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Terugkerende gebruiker

Gebruiker

Terugkerende gebruiker

Gebruiker

Bijlagen

Gebruiker

Inventaris

Gebruiker

Bijlagen

Terugkerende gebruiker

Inventaris

Gebruiker

Terugkerende gebruiker

Gebruiker

Bijlagen

Terugkerende gebruiker

Wij waarderen jouw privacy