۳۰-شهریور-۱۳۸۷, ۱۵:۴۹:۳۸
سلام
آموزش شناسايي درايوها
براي شناسايي درايوهاي سيستم ابتدا بايد اشاره گري از تمام توابع مورد نياز بگيريم. با كمك اين تابع:
حال بايد با كمك يك حلقه تشخيص بديم درايو وجود داره يا نه و از چه نوع هست :
براي تشخيص درايو
اشاره گري را كه به دست آورديم با عدد مشخص شده براي هر درايو تركيب مي كنيم. در صورتي كه عدد نامساوي صفر شود درايو وجود دارد. حال اسم درايو را برمي گردانيم و و نوع آن را دريافت مي كنيم.
اگر 2 باشد درايو مورد نظر درايو فلاپي يا فلش است
اگر 3 باشد درايو لاجيكال است
6: درايو سي دي رام
اگر سوال داشتيد بنويسيد
موفق باشيد
آموزش شناسايي درايوها
براي شناسايي درايوهاي سيستم ابتدا بايد اشاره گري از تمام توابع مورد نياز بگيريم. با كمك اين تابع:
کد:
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: درايو سي دي رام
اگر سوال داشتيد بنويسيد
موفق باشيد