السلام عليكم ورحمة الله وبركاته
هل من الممكن تحديد مسار أي برنامج محمل على الجهاز الحاسب الخاص بي من خلال كتابة اسم البرنامج او عن طريق عرض برامج سطح المكتب في لست بوكس
ومن ثم اختيار البرنامج المراد تحديد مسارة
واظهار المسار الخاص بالبرنامج الذي تم اختيارة
تم كتابة هذا الكود
لكنه بعض البرامج لا يظهر اسمها ومسارها تظهر لي ارقام بدل اسم الملف
كود :
Dim OpenFileDialog1 As New OpenFileDialog
OpenFileDialog1.Title = "open file"
OpenFileDialog1.Multiselect = False
OpenFileDialog1.Filter = "All Files|*.*"
OpenFileDialog1.ShowDialog()
Me.lblBrowse.Text = OpenFileDialog1.FileName
يظهر لي مسار البرنامج كما في الصورة
مع العلم ان البرنامج ليس بهذا الاسم
هذا مسار واسم البرنامج اخذته يدوي عن طريق خصائص
كود :
"C:\Program Files (x86)\freepdfsolutions.com\Free Scan to PDF\"
وعليكم السلام ورحمة الله وبركاته
بخصوص الكود فى ردك الثاني يكفي ان تستخدم الكود بهذا الشكل
كود :
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
تحياتى لك
وتمنياتى لك التوفيق