Retrieve all USB devices

[James]

Hey all,

I have the following which will retrieve removable devices:

Global $io_type

Func GetDevices($io_type)
;~ This function will get all USB devices and list them
    MsgBox(0, "AUSB", "AUSB will now load your USB devices." & @CRLF & "This may take some time!", 3)
    For $a = 1 To $io_type[0]
        $DriveLabel = DriveGetLabel($io_type[$a])
        GUICtrlSetData($USBDevices, StringUpper($io_type[$a]) & "\")
    Next
    GUISetState(@SW_SHOW)
EndFunc   ;==>GetDevices

Unfortunatley it also returns the A:\ drive. How can I ony get USB devices?

-James

[weaponx]

DriveGetLabel requires a file path be sent to it, what is in your $io_type array?

[James]

Global $Devices = DriveGetDrive("REMOVABLE") ;~ We need to get all Removable devices

GetDevices($Devices)

Func GetDevices($io_type)
;~ This function will get all USB devices and list them
    MsgBox(0, "AUSB", "AUSB will now load your USB devices." & @CRLF & "This may take some time!", 3)
    For $a = 1 To $io_type[0]
        $DriveLabel = DriveGetLabel($io_type[$a])
        GUICtrlSetData($USBDevices, StringUpper($io_type[$a]) & "\")
    Next
    GUISetState(@SW_SHOW)
EndFunc   ;==>GetDevices

[weaponx]

Option 1:

#include 
Global $Devices = DriveGetDrive("REMOVABLE") ;~ We need to get all Removable devices
$RESULT = _ArraySearch ( $Devices, "a:")
If NOT @ERROR Then _ArrayDelete($Devices[$RESULT])

GetDevices($Devices)

Func GetDevices($io_type)
;~ This function will get all USB devices and list them
    MsgBox(0, "AUSB", "AUSB will now load your USB devices." & @CRLF & "This may take some time!", 3)
    For $a = 1 To $io_type[0]
        $DriveLabel = DriveGetLabel($io_type[$a])
        GUICtrlSetData($USBDevices, StringUpper($io_type[$a]) & "\")
    Next
    GUISetState(@SW_SHOW)
EndFunc   ;==>GetDevicesoÝ÷ Øêmöjëh×6#include 
Global $Devices = DriveGetDrive("REMOVABLE") ;~ We need to get all Removable devices

GetDevices($Devices)

Func GetDevices($io_type)
;~ This function will get all USB devices and list them
    MsgBox(0, "AUSB", "AUSB will now load your USB devices." & @CRLF & "This may take some time!", 3)
    For $a = 1 To $io_type[0]
        If $io_type[$a] <> "a:" Then
            $DriveLabel = DriveGetLabel($io_type[$a])
            GUICtrlSetData($USBDevices, StringUpper($io_type[$a]) & "\")
        EndIf
    Next
    GUISetState(@SW_SHOW)
EndFunc   ;==>GetDevices

[James]

2nd Option! So much faster too! Thanks weaponx!

Edited August 27, 2007 by JamesB