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

السلام عليكم

اريد طريقة او كود لتحديد درايف النسخة والدرايف الثاني مباشرتا بعد درايف النسخة

مثلا لو جهاز مستخدم النسخة في C

والدرايف الثاني مباشرتا بعد النسخة في D

والدرايف الثالث في E

للأسف الترتيب غير ثابت من حيث التسمية في بعض النسخ

لو ممكن فضلا ان يتكرم احدكم بكود لتحديد درايف النسخة ودرايف الثاني مباشرتا في مثالنا السي نسخة والثاني D

وان كانت النسخة تمت بالخطأ عند بعض المستخدمين ب 2 درايف يتم التحديد بالأسماء الدرايفرات

حاولت بالطريقة دي بيظهر درايفرات مش عندي اصلا

كود :

Public Function ListAllDrives() As String()

        Dim arDrives() As String

        arDrives = Directory.GetLogicalDrives()

        Return arDrives

    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim sDrive As String, sDrives() As String

        sDrives = ListAllDrives()

        For Each sDrive In sDrives

            MsgBox(sDrive)

        Next

    End Sub

السلام عليكم احي محمد

ماذا تقصد بـ ( درايف النسخة) الكود الذي لديك يأتي باسماء الدرايفر في الكومبيوتر وهو صحيح

ولدي كود ابسط منه

كود :

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Drives As String() = Directory.GetLogicalDrives

        Dim Drive As String

        For Each Drive In Drives

            MsgBox(Drive)

        Next

    End Sub

End Class

هذا مافهمته منك ... صباح الخير

(20-06-19, 06:47 AM)ابراهيم ايبو كتب : [ -> ]
السلام عليكم احي محمد

ماذا تقصد بـ ( درايف النسخة) الكود الذي لديك يأتي باسماء الدرايفر في الكومبيوتر وهو صحيح

ولدي كود ابسط منه

كود :

Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Drives As String() = Directory.GetLogicalDrives Dim Drive As String For Each Drive In Drives MsgBox(Drive) Next End Sub End Class

هذا مافهمته منك ... صباح الخير

صباح النور

درايف النسخة المتسطب علية الويندوز

(20-06-19, 07:14 AM)محمد اسماعيل كتب : [ -> ]
(20-06-19, 06:47 AM)ابراهيم ايبو كتب : [ -> ]
السلام عليكم احي محمد

ماذا تقصد بـ ( درايف النسخة) الكود الذي لديك يأتي باسماء الدرايفر في الكومبيوتر وهو صحيح

ولدي كود ابسط منه

كود :

Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Drives As String() = Directory.GetLogicalDrives Dim Drive As String For Each Drive In Drives MsgBox(Drive) Next End Sub End Class

هذا مافهمته منك ... صباح الخير

صباح النور

درايف النسخة المتسطب علية الويندوز

لمعرفة الدرايف المسطب عليه الويندوزمثل \:C

PHP كود :

Dim WindowsDrive = IO.Path.GetPathRoot(Environment.SystemDirectory) 

لمعرفة المجلد المسطب عليه الويندوز مثل C:\Windows

PHP كود :

Dim WindowsDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Windows) 

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

اخى الفاضل الكود المستخدم لديك

لا يوجد به اى مشكلة وهو الكود الصحيح لعرض جميع الاحرف المستخدمة

اذا كان هارد او دى فى دى او دى فى دى وهمى وكذلك مسارات الشبكة كا دريف وكذلك الفلاشة

فعندما تقول يعرض احرف غير موجودة لديك

فتاكد بكونك لا تستخدم برنامج لعمل دى فى دى وهمى

او كون الجهاز يحتوى على مدخل لـ Floppy Disks

فى شئ يحمل الاحرف من a:z سيعرض لك فى القائمة

وبخصوص الترتيب فهو ترتيب ابجدي مهمى اختلف D

اذا كان دى فى دى او دريف او حتى فلاشة

بخصوص تريد عمل شئ مخصص او معين

فبدل من استخدام هذا السطر

كود :

           MsgBox(sDrive)

عليك تسجيل القيمة فى List ومن ثم التعامل معها

طبقاً لما تريده وحتى يفيدك الجميع بالامر

عليك توضيح ما تريده فعله تماماً ليسهل على الجميع

بوضع الكود المناسب بدلاً من التخمين

تحياتى لك

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

(20-06-19, 06:47 AM)ابراهيم ايبو كتب : [ -> ]
السلام عليكم احي محمد

ماذا تقصد بـ ( درايف النسخة) الكود الذي لديك يأتي باسماء الدرايفر في الكومبيوتر وهو صحيح

ولدي كود ابسط منه

كود :

Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Drives As String() = Directory.GetLogicalDrives Dim Drive As String For Each Drive In Drives MsgBox(Drive) Next End Sub End Class

هذا مافهمته منك ... صباح الخير

(20-06-19, 08:04 AM)sary كتب : [ -> ]
(20-06-19, 07:14 AM)محمد اسماعيل كتب : [ -> ]
(20-06-19, 06:47 AM)ابراهيم ايبو كتب : [ -> ]
السلام عليكم احي محمد

ماذا تقصد بـ ( درايف النسخة) الكود الذي لديك يأتي باسماء الدرايفر في الكومبيوتر وهو صحيح

ولدي كود ابسط منه

كود :

Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Drives As String() = Directory.GetLogicalDrives Dim Drive As String For Each Drive In Drives MsgBox(Drive) Next End Sub End Class

هذا مافهمته منك ... صباح الخير

صباح النور

درايف النسخة المتسطب علية الويندوز

لمعرفة الدرايف المسطب عليه الويندوزمثل \:C

PHP كود :

Dim WindowsDrive = IO.Path.GetPathRoot(Environment.SystemDirectory)

لمعرفة المجلد المسطب عليه الويندوز مثل C:\Windows

PHP كود :

Dim WindowsDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Windows)

(21-06-19, 07:16 PM)elgokr كتب : [ -> ]
وعليكم السلام ورحمة الله وبركاته

اخى الفاضل الكود المستخدم لديك

لا يوجد به اى مشكلة وهو الكود الصحيح لعرض جميع الاحرف المستخدمة

اذا كان هارد او دى فى دى او دى فى دى وهمى وكذلك مسارات الشبكة كا دريف وكذلك الفلاشة

فعندما تقول يعرض احرف غير موجودة لديك

فتاكد بكونك لا تستخدم برنامج لعمل دى فى دى وهمى

او كون الجهاز يحتوى على مدخل لـ Floppy Disks

فى شئ يحمل الاحرف من a:z سيعرض لك فى القائمة

وبخصوص الترتيب فهو ترتيب ابجدي مهمى اختلف D

اذا كان دى فى دى او دريف او حتى فلاشة

بخصوص تريد عمل شئ مخصص او معين

فبدل من استخدام هذا السطر

كود :

MsgBox(sDrive)

عليك تسجيل القيمة فى List ومن ثم التعامل معها

طبقاً لما تريده وحتى يفيدك الجميع بالامر

عليك توضيح ما تريده فعله تماماً ليسهل على الجميع

بوضع الكود المناسب بدلاً من التخمين

تحياتى لك

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

تم الحل