Public Sub FindFolder()
 
        Dim dir As New IO.DirectoryInfo(Laufwerke(x).ToString)
        Try
            For Each d As IO.DirectoryInfo In dir.GetDirectories()
 
                If x = Laufwerke.Length Then
                    Exit Sub
                End If
 
                If d.Name = parameter Then
                    successful = True
                    FoundFolder = d.FullName
                    x = Laufwerke.Length
                End If
 
                Call Rekursiv(d)
            Next
        Catch ex As Exception
 
        End Try
        If successful = False Then
            While x <> Laufwerke.Length
                x = x + 1
                FindFolder()
            End While
        End If
 
 
 
    End Sub
 
    Private Sub Rekursiv(ByVal Dir As IO.DirectoryInfo)
        Try
            If x = Laufwerke.Length Then
                Exit Sub
            End If
            For Each d As IO.DirectoryInfo In Dir.GetDirectories()
 
                If d.Name = parameter Then
                    successful = True
                    FoundFolder = d.FullName
                    x = Laufwerke.Length
                    'Mein Ersten Treffer aufhören zu suchen
                    Exit Sub
                End If
                'Rekursiver Aufruf
                Call Rekursiv(d)
            Next
        Catch ex As Exception
        End Try
    End Sub