Friend Function Ordner_Zaehlen(ByVal Ordner As String, ByVal _
      Option_Unterordner As Boolean) As String
        Application.DoEvents()
        Dim di As New IO.DirectoryInfo(Ordner)
 
        Application.DoEvents()
        If Option_Unterordner = True Then
            Return (di.GetDirectories("*", _
              IO.SearchOption.AllDirectories).Length)
        Else
            Return (di.GetDirectories("*", _
              IO.SearchOption.TopDirectoryOnly).Length)
        End If
        Application.DoEvents()
    End Function