If Path = Nothing = True Then
                    Else
                        Exit For
                    End If

If Path Is Nothing Then Exit For

 
       For Each Drive As DriveInfo In My.Computer.FileSystem.Drives
            If Drive.IsReady Then
 
                sPath = Drive.Name
 
                For Each Datenbank As String In My.Computer.FileSystem.GetFiles( _
                  sPath, FileIO.SearchOption.SearchAllSubDirectories, _
                  "Datenbank.txt")
                    Path = Datenbank
                    If Path Is Nothing Then Exit For
                Next
 
                ' usw...
 
            End If
        Next Drive

________
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