hoi ik wil mappen en submappen aanmaken via access met vba
nu kan ik al wel een nieuwe map maken met de naam van de klant maar nu zou ik ook submappen hier willen onder maken
bij de 2 laatste regel krijg ik een fout melding
nu kan ik al wel een nieuwe map maken met de naam van de klant maar nu zou ik ook submappen hier willen onder maken
Code:
Function CreateFolder(strFolder)
'Aanroepen met: CreateFolder "H:\Algemeen\Kwaliteit\Creatie_producten\"
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FolderExists(strFolder) Then
Exit Function
Else
CreateFolder (oFSO.GetParentFolderName(strFolder))
End If
oFSO.CreateFolder (strFolder)
Set oFSO = Nothing
End Function
Code:
Private Sub Klantenfiche_Click()
'CreateFolder "G:\Klanten\" & Me.Naam.Value & Me.Voornaam.Value
If Dir("G:\Klanten\Nieuwe klant\", vbDirectory) = "" Then
If MsgBox(prompt:="Map nieuwe klant bestaat niet. Wil je deze aanmaken ?", Buttons:=vbYesNo) = vbNo Then
Application.Quit
Else: CreateFolder "G:\Klanten\" & Me.Naam.Value & Me.Voornaam.Value
[COLOR="#FF0000"]If Dir("G:\Klanten\" & Me.Naam.Value & Me.Voornaam.Value \Schema's\", vbDirectory) = "" Then
MkDir "G:\Klanten\" & Me.Naam.Value & Me.Voornaam.Value \Schema's\"[/COLOR]
bij de 2 laatste regel krijg ik een fout melding
Laatst bewerkt: