mappen aanmaken

[demonbm86]

Allen,



Ik zou vanuit een access enkele mappen op mijn computor automatisch willen aanmaken.

ik heb een veld met ID : 2011023
via een knop zou ik dan bvb volgende mappen willen aanmaken :

C:\....\projecten\2011023\info\
C:\....\projecten\2011023\bestellingen\
C:\....\projecten\2011023\facturatie\
C:\....\projecten\2011023\foto\


enig idee hoe dit kan ?


alvast bedankt,

Demon

 

[perpon]

Wellicht met de volgende code :

Public Function MaakMap(SMap As String) As Boolean
'Maak een willekeurige map door eerst de voorafgaande submappen aan te maken
  On Error GoTo fOUT
  Dim Smaph1, Smaph2, s1, s2
  Smaph1 = SMap
  If Right(Smaph1, 1) = "\" Then Smaph1 = Left(Smaph1, Len(Smaph1) - 1)
  If Left(Smaph1, 2) = "\\" Then
    s1 = InStr(3, Smaph1, "\")    'hou rekening met een netwerk
  Else
    s1 = InStr(Smaph1, "\")
  End If
  'MsgBox (s1)
  Do While s1 > 0
    If s1 + 1 >= Len(Smaph1) Then Exit Do
    s1 = Nz(InStr(s1 + 1, Smaph1, "\"), 0)
    If s1 = 0 Then
      Smaph2 = Smaph1
    Else
      Smaph2 = Left(Smaph1, s1 - 1)
    End If
    'If Dir(Smaph2, vbDirectory) = vbNullString Then
    On Error Resume Next
    MkDir Smaph2
    On Error GoTo fOUT
  Loop
  If Dir(SMap, vbDirectory) <> vbNullString Then
    MaakMap = True
  Else
    MaakMap = False
  End If
Exit_fout:
  Exit Function
fOUT:
  MsgBox Err.Description
  Resume Exit_fout
End Function

JanvP