[dasktop]

مرحبا



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



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

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
ستحتاج اولا لاضافة ٌ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

[سعود]

فيه طريقة أخرى

PHP كود :

       Dim txt_os As String = ""
        txt_os = Environment.GetFolderPath(Environment.SpecialFolder.System)
        TxtOs.Text = Mid(txt_os, 1, 3) 


طريقة استخدام mid تحتاج ثلاث وسائط او بارمترات او ايا كان اسمها (الاولى النص المطلوب الثاني بدء الانتقاء ويبدا من الرقم 1 الثالث طول النص المراد جلبه او نسخه)

[dasktop]

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

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

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

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

[سعود]

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