Differenze tra le versioni di "Conoscere il contenuto di una pen-drive mediante le sole risorse di Gambas"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
Il contenuto di una pen-drive, inserita nella porta USB e montata dal sistema operativo, è visibile agevolmente nel percorso: | 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" <SUP>[[[#Note|Nota 1]]]</sup> | + | "/media" &/ User.Name &/ "<FONT Color=gray>''nome_della_cartella_condivisa_della_pen-drive''</font>" <SUP>[[[#Note|Nota 1]]]</sup> |
Ciò significa che all'interno di questa cartella condivisa della pen-drive è possibile vedere e richiamare utilmente il suo contenuto (sub-cartelle e file). | Ciò significa che all'interno di questa cartella condivisa della pen-drive è possibile vedere e richiamare utilmente il suo contenuto (sub-cartelle e file). | ||
Riga 7: | Riga 7: | ||
In Gambas possiamo scrivere un codice simile al seguente: | In Gambas possiamo scrivere un codice simile al seguente: | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
− | + | ||
− | Dim | + | Dim penna, per, s, tp As String |
− | + | ||
− | + | <FONT Color=gray>' ''Imposta il nome della "Pen-Drive" montata dal S.O.:''</font> | |
− | <FONT Color=gray>' '' | + | penna = "''40BA-E18A''" |
− | + | ||
+ | <FONT Color=gray>' ''Imposta il percorso completo della "Pen-Drive" montata dal S.O.:''</font> | ||
+ | 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''' | '''End''' | ||
− | |||
Versione delle 19:53, 7 dic 2021
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.