[aftfm]

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

هل من الممكن تحديد مسار أي برنامج محمل على الجهاز الحاسب الخاص بي من خلال كتابة اسم البرنامج او عن طريق عرض برامج سطح المكتب في لست بوكس
ومن ثم اختيار البرنامج المراد تحديد مسارة 
واظهار المسار الخاص بالبرنامج الذي تم اختيارة

[aftfm]

تم كتابة هذا الكود 
لكنه بعض البرامج لا يظهر اسمها ومسارها تظهر لي ارقام بدل  اسم الملف

 

كود :

Dim OpenFileDialog1 As New OpenFileDialog
        OpenFileDialog1.Title = "open file"
        OpenFileDialog1.Multiselect = False
        OpenFileDialog1.Filter = "All Files|*.*"
        OpenFileDialog1.ShowDialog()
        Me.lblBrowse.Text = OpenFileDialog1.FileName

[aftfm]

يظهر لي مسار البرنامج كما في الصورة

مع العلم ان البرنامج ليس بهذا الاسم

---

هذا مسار واسم  البرنامج اخذته يدوي عن طريق خصائص

كود :

"C:\Program Files (x86)\freepdfsolutions.com\Free Scan to PDF\"

[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

تحياتى لك

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