mkdir in acces

[frank2000]

Hallo,

ik heb in acces een formulier dossiers, met oa de records nr en dossiernaam.
Er staat tevens een knop die een map zou moeten maken met nr en dossiernaam, maar het loopt heel erg fout (ben nl niet thuis in vba voor MSAcces)

Public Sub NieuweMap()
Dim pad As String
pad = "C:\Dossiers" & Dossiers.Nr & " - " & Dossiers.Dossiernaam
MkDir pad
End Sub

Wie weet raad?

Alvast bedankt,

Frank

 

[WinteE]

Bijgaande code kijkt eerst of de directory al bestaat, zo niet dan wordt deze aangemaakt.

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim sDir as String
    sDir = "C:\DirectoryNaam"
        
    If objFSO.FolderExists(sDir) = False Then
        MkDir (sDir)
    End If

 

[Axel Hagg]

Dag Frank,

Dim s As String

s = "C:\DirectoryNaam"
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(s) Then .CreateFolder s
End With

En vergeet in menu Extra Verwijzingen niet om Microsoft Scripting RunTime aan te vinken.

Gegroet,

Axel.