منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحديد مسار برنامج محمل على جهاز الحاسب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحديد مسار برنامج محمل على جهاز الحاسب (/showthread.php?tid=28815)

تحديد مسار برنامج محمل على جهاز الحاسب - aftfm - 02-03-19

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

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

RE: تحديد مسار برنامج محمل على جهاز الحاسب - aftfm - 05-03-19

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

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


RE: تحديد مسار برنامج محمل على جهاز الحاسب - aftfm - 05-03-19

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

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


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


RE: تحديد مسار برنامج محمل على جهاز الحاسب - elgokr - 07-03-19

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

بخصوص الكود فى ردك الثاني يكفي ان تستخدم الكود بهذا الشكل
كود :
       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

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