allora sunl forum ho trovato un post credo di ans, così composto:

codice:
    Public Function FindFile(ByVal nomeFile As String) As String
        Dim strDrives() As String = IO.Directory.GetLogicalDrives()
        Dim Directories As String()
        Dim iDirectory, filePath As String
        Dim driveDetails As IO.DriveInfo

        For Each drive As String In strDrives
            driveDetails = New IO.DriveInfo(drive)
            If driveDetails.DriveType.ToString = "Fixed" Then
                Directories = IO.Directory.GetDirectories(drive)

                For Each iDirectory In Directories
                    filePath = SearchFile(iDirectory, nomeFile)
                    If filePath.Length > 0 Then Return filePath
                Next
            End If
        Next

        Return String.Empty
    End Function

    Private Function SearchFile(ByVal Dir As String, ByVal nomeFile As String) As String
        On Error Resume Next
        Dim Directories As String()
        Dim iDirectory As String, filePath As String
        Dim risposta As MsgBoxResult
        SearchFile = String.Empty
        Directories = IO.Directory.GetDirectories(Dir)
        For Each iDirectory In Directories
            filePath = SearchFile(iDirectory, nomeFile)
            If IO.File.Exists(IO.Path.Combine(Dir, nomeFile)) Then
                risposta = MsgBox("Il percorso è corretto? " + (Dir + "\" + nomeFile), MsgBoxStyle.YesNo, "Controllo path del gioco....")
                If risposta = MsgBoxResult.Yes Then
                    'Return Dir
                    Exit For
                Else
                End If
                ListBox1.Items.Add(Dir)
            End If
        Next
    End Function



    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        Dim nomefile As String = "ore.txt"
        Dim strDrives() As String = IO.Directory.GetLogicalDrives()
        Dim Directories As String()
        Dim iDirectory, filePath As String
        Dim driveDetails As IO.DriveInfo
        For Each drive As String In strDrives
            driveDetails = New IO.DriveInfo(drive)
            If driveDetails.DriveType.ToString = "Fixed" Then
                Directories = IO.Directory.GetDirectories(drive)
                For Each iDirectory In Directories
                    filePath = SearchFile(iDirectory, nomefile)
                Next
            End If
        Next

    End Sub
ma a me non trova nulla, ed in più mi si impalla l'eseguibile!