Conoscere i dispositivi pen-drive usb montati sul sistema

Da Gambas-it.org - Wikipedia.

Versione del 1 feb 2022 alle 15:54 di Vuott (Discussione | contributi) (Creata pagina con "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" ''...")

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

Vai a: navigazione, ricerca

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

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Conoscere_i_dispositivi_pen-drive_usb_montati_sul_sistema&oldid=30997"