Ho visto il tuo messagggio nella M.L.I., ed l'ho ripreso per cercare di provarlo.
Ho inserito in una cartella 6 file:
- 1 con estensione
.mp3;
- 1 con estensione
.odt;
- 1 con estensione
.jpg;
- 3 nascosti.
Ho poi modificato leggermente il tuo codice come segue:
Public Sub Button1_Click()
Dim files As String[]
Dim directory As String
directory = "percorso_della_mia_cartella_contenente_i_6_file"
files = RDir(directory, "*.odt", gb.file)
Print files.length
files.Insert(RDir(directory, "*.jpg", gb.file))
Print files.length
files.Insert(RDir(directory, "*.mp3", gb.file))
Print files.length
files.Insert(RDir(directory, ".*", gb.file))
Print files.length
End
ecco coerentemente i risultati in console:
1
2
3
6Pertanto a me il tuo codice funziona
. Funziona anche se pongo l'ultima istruzione così:
files.Insert(RDir(directory, ".*"))
Funziona anche se voglio raccogliere
solo due dei tre file nascosti:
files.Insert(RDir(directory, ".set*", gb.file))
Print files.length
files.Insert(RDir(directory, ".pro*", gb.file))
in console avrò coerentemente i seguenti risultati:
1
2
3
4
5(il sesto file, avente un nome diverso, l'ho - come previsto - escluso dal codice).
Io ho Ubuntu e Gambas 3 Versione=3.3.90