[محمد اسماعيل]

السلام عليكم

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

مثلا لو جهاز مستخدم النسخة في 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

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

صباح النور

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

[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) 


[elgokr]

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

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

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

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

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

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

او كون الجهاز يحتوى على مدخل لـ 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 ومن ثم التعامل معها

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

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

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

تحياتى لك

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

تم الحل