آموزش شناسايي درايوها در VB

[BlackCode]

سلام


آموزش شناسايي درايوها

براي شناسايي درايوهاي سيستم ابتدا بايد اشاره گري از تمام توابع مورد نياز بگيريم. با كمك اين تابع:

کد:

Private Declare Function GetLogicalDrives Lib "Kernel32" () As Long

حال بايد با كمك يك حلقه تشخيص بديم درايو وجود داره يا نه و از چه نوع هست :

کد:

Private Declare Function GetDriveType Lib "Kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

براي تشخيص درايو

کد:

x = GetLogicalDrives

For i = 0 To 20
If x And 2 ^ i <> 0 Then
y = Chr(65 + i)
Select Case GetDriveType(y & ":\")
Case 2
List1.AddItem y & " -----> Removable Disck "
End If
Case 3
List1.AddItem y & " -----> Local Disck"
End Select
End If
Next

اشاره گري را كه به دست آورديم با عدد مشخص شده براي هر درايو تركيب مي كنيم. در صورتي كه عدد نامساوي صفر شود درايو وجود دارد. حال اسم درايو را برمي گردانيم و و نوع آن را دريافت مي كنيم.

اگر 2 باشد درايو مورد نظر درايو فلاپي يا فلش است
اگر 3 باشد درايو لاجيكال است
6: درايو سي دي رام

اگر سوال داشتيد بنويسيد

موفق باشيد

[keihancpu]

لازم به ذکره بگم :
2 =فاپی درایو یا removable
3=پارتیشن هارد دیسک
4=پارتیشن شبکه
5=CdRom-DvdRom
6=RamDisk

البته ببخشیدا ولی اطلاعات رو درست بدید
با تشکر از BlackCode عزیز