[أسامة]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String
        Dim temp As New DirectoryInfo("InitialPathToSearch")
        path = SearchFile(temp, "filename.exe")
        MsgBox(path)
    End Sub

on error resume next

كود :

Private Function SearchFile(ByVal SearchDir As DirectoryInfo, ByVal searchFileName As String) As String
        Dim temp As String = ""
        If SearchDir.GetFiles(searchFileName).Length > 0 Then
            Return SearchDir.FullName & "\" & searchFileName
        End If
        Dim Directories() As DirectoryInfo = SearchDir.GetDirectories("*")
        For Each newDir As DirectoryInfo In Directories
            temp = SearchFile(newDir, searchFileName)
        Next
        Return temp
    End Function

المشكلة فى الكود ان مسار البرنامج يطلع هكذا

إقتباس :C:\Users\Osama\AppData\Local\Temporary Projects\WindowsApplication1\bin\Debug\InitialPathToSearch\chrome.exe

لكن المسار الحقيق

إقتباس :"C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

فهل يوجد حل غير تغير

كود :

Dim temp As New DirectoryInfo("InitialPathToSearch")

الى

كود :

Dim temp As New DirectoryInfo("C:\Program Files (x86)\Google\Chrome\Application")