Проверка подключения 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д