Differenze tra le versioni di "Estrarre da una cartella uno o più file nascosti"
Da Gambas-it.org - Wikipedia.
| Riga 6: | Riga 6: | ||
Dim nomefile As String | Dim nomefile As String | ||
| − | For Each nomefile In Dir("<FONT Color=darkgreen>''/percorso/della/cartella''</font>", "<FONT color= | + | For Each nomefile In Dir("<FONT Color=darkgreen>''/percorso/della/cartella''</font>", "<FONT color=red><B>.*</b></font>") <SUP>[[[#Note|nota 1]]]</sup> |
Print nomefile | Print nomefile | ||
Next | Next | ||
Versione attuale delle 10:04, 24 giu 2024
I file nascosti sono riconoscibili dal fatto che al proprio nome è anteposto un punto: .nomefile
Per estrarre il nome dei file nascosti da una cartella, potrà essere utilizzato il seguente codice con la funzione "Dir()" e il filtro ".*" :
Public Sub Button1_Click()
Dim nomefile As String
For Each nomefile In Dir("/percorso/della/cartella", ".*") [nota 1]
Print nomefile
Next
End
Note
[1] L'utente sotema del forum di Gambas-it.org suggerisce anche questo altro filtro: "[!^.]*"
