Differenze tra le versioni di "Conoscere i dispositivi pen-drive usb montati sul sistema"
Da Gambas-it.org - Wikipedia.
(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" ''...") |
(Nessuna differenza)
|
Versione delle 16:54, 1 feb 2022
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