شرح الدالة GetDriveType لتحديد نوع القرص

من طرف بنت البلد الثلاثاء أكتوبر 02, 2012 12:36 pm

بسم الله الرحمن الرحيم

هذه الدالة تساعد في تحديد نوع القرص الموجود في جهازك.....ولكيفية استخدامها نتبع الخطوات التالية :

أولا:نضع هذا الكود في قسم التصريحات العامة General :

الكود:: Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

ثانيا:نضع هذا الكود في زر Command أو في الفورم لود Forum_Load :

الكود:: Me.AutoRedraw = True Select Case GetDriveType("C:") Case 2 Me.Print "Removable" Case 3 Me.Print "Drive Fixed" Case Is = 4 Me.Print "Remote" Case Is = 5 Me.Print "Cd-Rom" Case Is = 6 Me.Print "Ram disk" Case Else Me.Print "Unrecognized" End Select

مع تمنياتي أن يكون الموضوع قد نال اعجابكم

من طرف 1zaza الثلاثاء يناير 01, 2019 7:43 am

شكرا جزيلا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

1	#الحديثة
2	#الدورات
3	#موقع_لي_نور_الإلكتروني
4	#java
5	#datagridview
6	#استثمار
7	#الامارات
8	#الشارقة
9	#سكن
10	#عقار

شرح الدالة GetDriveType لتحديد نوع القرص

شرح الدالة GetDriveType لتحديد نوع القرص

رد: شرح الدالة GetDriveType لتحديد نوع القرص

مواضيع ذات صلة