• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 10 رای - 2.1 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: بدست اوردن لیست درایوهای موجود بر روی سیستم
حالت خطی
#27
سلام
اینم کدی که خواستید :
کد:
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long ' tavasot in api mitonim vaziat driveha ro be dast biarim

Const DRIVE_CDROM = 5 ' inja tarif mikonim mesalan agar drive h az noa cd rom bod addad 5 ro khoroji bede

Const DRIVE_FIXED = 3

Const DRIVE_RAMDISK = 6

Const DRIVE_REMOTE = 4

Const DRIVE_REMOVABLE = 2 ' FLASH DISK



Private Sub Form_Load()
If GetDriveType("h:") = 2 Then 'agar DRIVE AZ noa usb bod dastor zIR EJRA BESHE
MsgBox "detect usb"
Else ' ELSE: AGAR DRIVE H AZ NOA USB NABOD DASTOR ZIR EJRA NASHE
MsgBox ("DRIVE AZ NOA USB NIST")
End If
If GetDriveType("i:") = 2 Then 'agar DRIVE  i aZ noa usb bod dastor zIR EJRA BESHE
MsgBox "detect usb"
Else ' ELSE: AGAR DRIVE H AZ NOA USB NABOD DASTOR ZIR EJRA NASHE
MsgBox ("DRIVE AZ NOA USB NIST")

End Sub
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
RE: بدست اوردن لیست درایوهای موجود بر روی سیستم - توسط Amin_Mansouri - 01-13-2012، 11:44 AM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سه فیلتر در نمایس لیست باکس aghamali 0 2,438 07-11-2017، 10:39 PM
آخرین ارسال: aghamali
  جابجایی در لیست باکس aghamali 0 3,326 03-14-2016، 07:41 PM
آخرین ارسال: aghamali
  انتخاب رندوم از لیست باکس aghamali 0 2,594 04-16-2015، 06:30 AM
آخرین ارسال: aghamali
  لیست کاربرهای کلوب tiktak990 6 9,357 03-21-2014، 01:04 PM
آخرین ارسال: a.adhami
  سورس کلوب اسپمر یا افزایش لیست اعضا با ویژوال بیسیک tiktak990 1 6,669 08-11-2013، 12:14 PM
آخرین ارسال: Amin_Mansouri
  لیست باکس a.adhami 9 11,743 03-01-2013، 11:16 AM
آخرین ارسال: Amin_Mansouri
Bug جمع اوری لیست اعضا tiktak99 3 7,461 02-16-2013، 08:20 PM
آخرین ارسال: rap0661
  بدست اوردن آیدی های لاگین شده alakimalaki 1 3,712 12-09-2012، 11:57 AM
آخرین ارسال: 2400
  سورس کد تشخیص 64 بیتی بودن سیستم عامل (ویژوال بیسیک6) Amin_Mansouri 0 4,677 06-16-2012، 07:57 PM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اورن فضای خالی درایور (ویژوال بیسیک 6) Amin_Mansouri 0 2,851 06-16-2012، 07:54 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 11 مهمان