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


امتیاز موضوع:
  • 10 رای - 2.1 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: بدست اوردن لیست درایوهای موجود بر روی سیستم
حالت خطی
#28
(01-13-2012، 11:44 AM)Secret نوشته: سلام
اینم کدی که خواستید :
کد:
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

خیلی لطف کردی ،دستت درد نکنه امتحان می کنم.
بازم ازتون ممنونم.



 
پاسخ
  


پیام‌های این موضوع
RE: بدست اوردن لیست درایوهای موجود بر روی سیستم - توسط پنام - 01-13-2012، 11:55 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: 10 مهمان