[elgokr]

وعليكم السلام ورحمة الله وبركاته

بخصوص الكود فى ردك الثاني يكفي ان تستخدم الكود بهذا الشكل

كود :

       Dim OFD As New OpenFileDialog
       OFD.Title = "Please select any file"
       OFD.InitialDirectory = "C:\"
       OFD.Filter = "All Files|*.*"
       If OFD.ShowDialog() = DialogResult.OK Then
           MsgBox(OFD.FileName)
       End If

بخصوص جلب مسار برنامج يعمل على الجهاز يكفس استخدام هذا الكود

كود :

       Dim PGDL() As Process = Process.GetProcessesByName("NotePad")
       For ii As Integer = 0 To PGDL.Count - 1
           MsgBox(Path.GetDirectoryName(PGDL(ii).MainModule.FileName.ToString))
           Exit For
       Next

كل ما عليك فعله هو التالى

تغيير كلمة NotePad الى اسم البرنامج المطلوب البحث عنه

كود :

       Dim PGDL() As Process = Process.GetProcessesByName("opera")
       For ii As Integer = 0 To PGDL.Count - 1
           MsgBox(Path.GetDirectoryName(PGDL(ii).MainModule.FileName.ToString))
           Exit For
       Next

تذكر لاتمام جلب المسار يجب ان يكون البرنامج يعمل

حتى يتم قراءة المسار من خلال Task Manger

تحياتى لك

وتمنياتى لك التوفيق