Sub GetAllSubDirs(ByVal Ordner As String, ByRef Liste As ListBox)
 
        Dim myDir As New DirectoryInfo(Ordner)
        Dim myDirs() As DirectoryInfo
 
        myDirs = myDir.GetDirectories()
 
        Debug.Print(myDirs.Length)
 
        For i As Integer = 0 To myDirs.Length - 1
            Liste.Items.Add(myDirs(i).Name)
        Next
 
    End Sub
 
    Sub GetAllFiles(ByVal Ordner As String, ByRef Liste As ListBox)
 
        Dim myDir As New DirectoryInfo(Ordner)
        Dim myFiles() As FileInfo = myDir.GetFiles()
 
        For i As Integer = 0 To myFiles.Length - 1
            Liste.Items.Add(myFiles(i).Name)
        Next
 
    End Sub

    Sub ScanAllVideos(ByVal Ordner As String, ByRef Liste As ListBox)
 
        GetAllFiles(Ordner, Liste)
 
        Dim myDir As New DirectoryInfo(Ordner)
        Dim myDirs() As DirectoryInfo
 
        myDirs = myDir.GetDirectories
 
        'Wenn mindestens 1 Unterordner gefunden
        If myDirs.Length > 0 Then
 
            For i As Integer = 0 To myDirs.Length - 1
                'Wenn ich hier weitere Ordner durchsuchen möchte,
                'muss mein Code sehr Dynamisch sein...
 
            Next
 
        End If
 
    End Sub