شناسایی درایو فلش

سلام
چگونه میشه به محض اینکه فلش به پورت USB وصل میشه درایو اون رو بدست آوورد؟
(نام درایو فلش رو به ما بده)

کد:

---

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Set the graphic mode to persistent
    Me.AutoRedraw = True
    'Get information about the C:\
    Select Case GetDriveType("C:\")
        Case 2
            Me.Print "Removable"
        Case 3
            Me.Print "Drive Fixed"
        Case Is = 4
            Me.Print "Remote"
        Case Is = 5
            Me.Print "Cd-Rom"
        Case Is = 6
            Me.Print "Ram disk"
        Case Else
            Me.Print "Unrecognized"
    End Select
End Sub

---

اینجوری میشه

سلام
کد دوست عزیزمون فقط برای شناساسیی نوع دراو هست که باید خود درایو رو داشته باشید
کد زیر رو هم اضافه کنید تا بتونید اسم همه ی درایو ها رو پیدا کنید
بعد یکی یکی سرچ کنید ببینید کدوم فلشه
البته فلاپی درایو رو هم به عنوان فلاش میشناسه ها

کد:

---

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim strSave As String
    'Set the graphic mode to persistent
    Me.AutoRedraw = True
    'Create a buffer to store all the drives
    strSave = String(255, Chr$(0))
    'Get all the drives
    ret& = GetLogicalDriveStrings(255, strSave)
    'Extract the drives from the buffer and print them on the form
    For keer = 1 To 100
        If Left$(strSave, InStr(1, strSave, Chr$(0))) = Chr$(0) Then Exit For
        Me.Print Left$(strSave, InStr(1, strSave, Chr$(0)) - 1)
        strSave = Right$(strSave, Len(strSave) - InStr(1, strSave, Chr$(0)))
    Next keer
End Sub

---

من یه ویروسم نوشم که از هر دو تابع توش استفاده شده
علت این که می خواستم نوع دراو رو بدونم این بود که اگه درایو فلاش بود autorun دیگه ای رو در درایو جاسازی کنه تا شکل فلاش بگیره نه شکل پارتیشنای هارد