Fast USB

I-Nex/i-nex/.src/USB_Drives.module

@@ -28,26 +28,11 @@ Public lsusb As String
 Public ListAllDiscs As String
 
 Public Sub _inits()
-  Dim risultato As String
-  Dim righe As New String[]
-  Dim count As Integer
-  Dim riga As New String[]
-  Dim lista As New String[]
-  Logs("Add Drives to ComboBox..", Logger.Info)
-  Shell "ls /sys/bus/usb/devices/*/* | grep 'manufacturer' | grep usb | cut -d '/' -f 6" To ListAllDiscs
-  righe = Split(ListAllDiscs, "\n", "%%", True)
-  For count = 0 To righe.Max
-  riga = Split(righe[count], " ", "%%", True)
-  risultato = Replace(riga[0], " ", "")
-  lista.add(risultato)
-  Next
-  Finfosys.ComboBox5.List = lista
+  Finfosys.ComboBox5.List = Dir("/sys/bus/usb/devices/", "*[0-9]*")
   Finfosys.ComboBox5.Index = 0
-
 End
 
 Public Sub get_informations()
- 'Product = File.Load("/sys/bus/usb/devices/usb1/product")
  Try Finfosys.TextBox40.Text = Replace(File.Load("/sys/bus/usb/devices/" & Finfosys.ComboBox5.Text & "/product"), "\n", "")
  Try Finfosys.TextBox41.Text = Replace(File.Load("/sys/bus/usb/devices/" & Finfosys.ComboBox5.Text & "/bMaxPower"), "\n", "")
  Try Finfosys.TextBox42.Text = Replace(File.Load("/sys/bus/usb/devices/" & Finfosys.ComboBox5.Text & "/manufacturer"), "\n", "")