Проверка подключения USB (flash) - VB

Формулировка задачи:

Доброго времени суток народ!!! Написал кривой чекер подключения USB(flash) к компу вроде работает но нужно сделать следующие что бы при подключение он искал на флешке файлы *.ini и выводил в лист бокс (сам чекер кривой т.к. руки кривые ) так что если у кого есть пример хотя бы чекера прошу в студию! Ну и вообщем вопрос решить бы))) Орущие о вирусах троянах идт идут лесом!!!!

Решение задачи: «Проверка подключения USB (flash)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Function GetLogicalDriveStrings Lib "kernel32.dll" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Dim p(26) As String
Private Sub sss()
On Error Resume Next
DoEvents
List2.Clear
Test
For i = 0 To 26
If p(i) <> "" Then
If Dir(p(i) & "1.ryr") <> "" Then
List2.AddItem p(i)
Else
Open p(i) & "1.ryr" For Output As #1
Close #1
End If
End If
Next
For i = 0 To 26
p(i) = ""
Next
End Sub
Private Sub Test() 'usb
    Dim sDrives As String, iLenght As Long, xDrive As Variant
    sDrives = String(255, vbNullChar)
    iLenght = GetLogicalDriveStrings(Len(sDrives), sDrives)
    sDrives = Left(sDrives, iLenght - 1)
    For Each xDrive In Split(sDrives, vbNullChar)
     u = u + 1
        If GetDriveType(xDrive) = 2 Then
        p(u) = xDrive
        End If
    Next
    u = 0
End Sub
Private Sub Timer3_Timer()
DoEvents
sss
End Sub