Estrarre da una cartella uno o più file nascosti

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: "[!^.]*"