Проверка подключения 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы