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