<code><font color=green>' Verschaltete Verzeichnisse erstellen</font>
Public Function MakePath(ByVal sPath As String, _
  Optional ByVal ShowMsg As Variant) As Boolean
 
  Dim antwort As Integer
  Dim Dummy As String
 
  If IsMissing(ShowMsg) Then ShowMsg = False
 
  antwort = 0: Err = 0
  Dummy = ""
  On Local Error Resume Next
  While Len(sPath) > 0 And antwort = 0
    If Left$(sPath, 2) = "\" Then
      Dummy = Dummy + "\"
      sPath = Mid$(sPath, 3)
    ElseIf left$(sPath, 1) = "\" Then
      Dummy = Dummy + "\"
      sPath = Mid$(sPath, 2)
    ElseIf Mid$(sPath, 2, 2) = ":\" Then
      Dummy = Dummy + left$(sPath, 3)
      sPath = Mid$(sPath, 4)
    End If
    While left$(sPath, 1) <> "\" And Len(sPath) > 0
      Dummy = Dummy + left$(sPath, 1)
      sPath = Mid$(sPath, 2)
    Wend
    Err = 0
    MkDir Dummy
    If Err <> 75 And Err <> 0 Then
      If ShowMsg Then
        antwort = MsgBox("Fehler beim Erstellen " & _
          "des Verzeichnisses!" + vbCrLf + 48, "Fehler")
      Else
        antwort = 1
      End If
    End If
  Wend
  On Local Error GoTo 0
 
  MakePath = (antwort = 0)
End Function</code>