ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

 FORM-CODE

   Private Sub MakeDir(Verzeichnis As String)
      Dim L�nge As Integer
      Dim DirL�nge As Integer
      On Error GoTo err
      L�nge = 4
      If Right(Verzeichnis, 1) <> "\" Then Verzeichnis = Verzeichnis + "\"
      While Not DirectoryExists(Verzeichnis)
         DirL�nge = InStr(L�nge, Verzeichnis, "\")
         If Not DirectoryExists(Left(Verzeichnis, DirL�nge)) Then _
            MkDir Left(Verzeichnis, DirL�nge - 1)
            L�nge = DirL�nge + 1
      Wend
      err:
   End Sub

   Public Function DirectoryExists(ByVal Verzeichnis As String) As Boolean
      Dim DirectoryFound As String
      Const errPathNotFound As Integer = 76
      On Error GoTo err
      DirectoryFound = Dir(Verzeichnis, vbDirectory)
      If (Len(DirectoryFound) = 0 Or err = errPathNotFound) Then
         DirectoryExists = False
      Else
         DirectoryExists = True
      End If
      err:
   End Function

   Private Sub Command1_Click()
      MakeDir "C:\Das\ist\ein\sehr\tief\verschachteltes\Verzeichnis\_
         auch mit Leerzeichen !"
   End Sub