Conoscere i dispositivi pen-drive usb montati sul sistema

Per ottenere un elenco delle pen-drive USB montate sul proprio sistema, è possibile adottare il seguente codice:

Private Const DEV_DISK As String = "/dev/disk/by-id"


Public Sub Main()

 Dim usb, s As String

 For Each usb In Dir(DEV_DISK, "*", gb.Device)
   If Left(usb, 3) = "usb" Then 
     If Left(usb, RInStr(usb, "_") - 1) <> s Then Print Left(usb, RInStr(usb, "_") - 1)
     s = Left(usb, RInStr(usb, "_") - 1)
   Endif
 Next

End