Conoscere il contenuto di una pen-drive mediante le sole risorse di Gambas

Da Gambas-it.org - Wikipedia.

Il contenuto di una pen-drive, inserita nella porta USB e montata dal sistema operativo, è visibile agevolmente nel percorso:

"/media" &/ User.Name &/ "nome_della_cartella_condivisa_della_pen-drive" [Nota 1]

Ciò significa che all'interno di questa cartella condivisa della pen-drive è possibile vedere e richiamare utilmente il suo contenuto (sub-cartelle e file).

Così, se ad esempio il nome della cartella condivisa della nostra pen-drive fosse "40BA-E18A", per vedere e gestire tutto ciò che è contenuto nella nostra pen-drive USB inserita, dovremo semplicemente aprire la predetta cartella condivisa e vedere il suo contenuto.

In Gambas possiamo scrivere un codice simile al seguente:

Public Sub Main()

 Dim penna, per, s, tp As String

' Imposta il nome della "Pen-Drive" montata dal S.O.:
 penna = "40BA-E18A"

' Imposta il percorso completo della "Pen-Drive" montata dal S.O.:
 per = "/media" &/ User.Name &/ penna
   
 Print "\nFile e cartelle principali presenti nel dispositivo '"; per; "'\n"

 For Each s In Dir(per, Null, 0)
   Select Case Stat(per &/ s).Type
     Case gb.File
       tp = "File     "
     Case gb.Directory
       tp = "Directory"
     Case gb.Device
       tp = "Device   "
     Case gb.Pipe
       tp = "Pipe     "
     Case gb.Socket
       tp = "Socket   "
     Case gb.Link
       tp = "Link     "
   End Select
   Print "   \e[1m\e[31m"; tp, "\e[0m\e[0m"; s
 Next

End


Note

[1] Questo percorso è testato almeno per la distribuzione Linux Mint.