Public Function CountDirectories(ByVal dir As String) As Integer
        Dim dc As Integer
        Try
            Dim dirs() As String = IO.Directory.GetDirectories(dir)
            dc += dirs.Length
            For Each dir1 As String In dirs
                dc += CountDirectories(dir1)
            Next
        Catch
        End Try
        Return dc
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist