منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مرحبا

انا لدي مشروع لعمل ملف 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 الثالث طول النص المراد جلبه او نسخه)

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

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dasktop

ابراهيم ايبو

سعود

dasktop

سعود