Как запустить процесс, не зная пути к файлу

            For Each Dirs In My.Computer.FileSystem.GetDirectories("C:", FileIO.SearchOption.SearchTopLevelOnly, "Prog*")
                For Each JRE In My.Computer.FileSystem.GetDirectories(Dirs, FileIO.SearchOption.SearchTopLevelOnly, "Java*")
                    For Each foundFile As String In My.Computer.FileSystem.GetFiles(JRE, FileIO.SearchOption.SearchAllSubDirectories, "java.exe")
                        If foundFile <> "" Then
                            PrName = foundFile
                        End If
                    Next
                Next
            Next

My.Computer.FileSystem.GetFiles("C:", FileIO.SearchOption.SearchAllSubDirectories, "java.exe")

 Private Function GetJavaInstallationPath() As String
        Dim environmentPath As String = Environment.GetEnvironmentVariable("JAVA_HOME")
        If Not String.IsNullOrEmpty(environmentPath) Then
            Return environmentPath
        End If
 
        Dim javaKey As String = "SOFTWARE\JavaSoft\Java Runtime Environment\"
        Using rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(javaKey)
            Dim currentVersion As String = rk.GetValue("CurrentVersion").ToString()
            Using key As Microsoft.Win32.RegistryKey = rk.OpenSubKey(currentVersion)
                Return key.GetValue("JavaHome").ToString()
            End Using
        End Using
    End Function