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("percorso_cartella", <FONT color=#B22222>".*"</font>) | + | For Each nomefile In Dir("percorso_cartella", <FONT color=#B22222>".*"</font>) |[[#Note|1]]| |
Print nomefile | Print nomefile | ||
Riga 13: | Riga 13: | ||
'''End''' | '''End''' | ||
+ | |||
+ | |||
+ | ---- | ||
+ | |||
+ | ==Note== | ||
+ | [1] L'utente ''sotema'' del forum di Gambas-it.org suggerisce anche questo altro filtro: <FONT color=#B22222>"[!^.]*"</font> |
Versione delle 03:50, 10 dic 2012
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_cartella", ".*") |1| Print nomefile Next End
Note
[1] L'utente sotema del forum di Gambas-it.org suggerisce anche questo altro filtro: "[!^.]*"