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

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

name cd - dasktop - 07-08-19

مرحبا



انا لدي مشروع لعمل ملف setup 



كيف نعرف  اسم ال cd المثبت عليه الوندوز

RE: name cd - ابراهيم ايبو - 07-08-19

السلام عليكم ورحمة الله وبركاته
ستحتاج اولا لاضافة ٌReference  اسمه System.Management
ثم هذا الكود
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyobjectQuery As New System.Management.ObjectQuery("select * from Win32_CDROMDrive")
       Dim MySearcher As New System.Management.ManagementObjectSearcher(MyobjectQuery)
       For Each Mgmt As System.Management.ManagementObject In MySearcher.Get()
           MsgBox(Mgmt("Name").ToString())
       Next
   End Sub


RE: name cd - سعود - 07-08-19

فيه طريقة أخرى
PHP كود :
       Dim txt_os As String = ""
        txt_os = Environment.GetFolderPath(Environment.SpecialFolder.System)
        TxtOs.Text = Mid(txt_os, 1, 3) 
طريقة استخدام mid تحتاج ثلاث وسائط او بارمترات او ايا كان اسمها (الاولى النص المطلوب الثاني بدء الانتقاء ويبدا من الرقم 1 الثالث طول النص المراد جلبه او نسخه)

RE: name cd - dasktop - 07-08-19

لكم جزيل الشكر ابراهيم وسعود

وطورت الكود بطريقة سهله

TextBox1.Text = Environment.GetFolderPath(Environment.SpecialFolder.Windows)

If TextBox1.Text.Contains("Windows") Then
TextBox1.Text = TextBox1.Text.Replace("Windows", "Program Files")
End If

RE: name cd - سعود - 07-08-19

هل تريد مسار مجلد البرامج؟
اذا نعم يمكنك استبداله عن طريق الـ Environment الاساسي بالكود.
تجد كافة مجلدات النظام.