جستجوی تمام هارد

[SlowCode]

سلام
من پستهای قبلی رو نخوندم ولی میتونی توی یه حلقه از 65 تا 90 با تابع GetDriveType ببین اگه مقدارش برگشتیتش 1 نباشه یعنی اگه وجود داشته باشه کارت رو نجام بده. این مثال رو ببین:

Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long



Dim Drive As String, DType As Byte

For i = 65 To 90

Drive = Chr(i) & ":"

DType = GetDriveType(Drive)

If DType <> 1 Then List1.AddItem Drive & "  " & "Type: " & DType

Next