Salve
Dovrei popolare una combo box di Access con i nomi dei file contenuti in una cartella specifica.
In rete ho trovato questo pezzo di codice:
codice:
Dim fso ' il file system object
Dim folder ' la cartella (directory)
Dim file ' il singolo file
Dim string ' per contenere l'elenco
' N.B. assumo che 'dirName' contenga il nome della
' directory che si vuole 'listare'
' creo il FSO ed accedo alla singola cartella
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder( dirName )
' pulisco la stringa
string = ""
' ciclo su tutti i file della cartella
For Each file in folder.Files
string = string & file.name
string = string & vbCrLf
Next
' a questo punto 'string' contiene l'elenco separato
' da 'ritorni a capo'.
Set folder=Nothing
Set fso=Nothing
Come posso adattarlo alle mie esigenze ?
Ho visto che Access mette i valori nel campo RowSource delle proprietà della combo box.
Dovrei modificare questo codice in modo che la variabile string assuma la seguente struttura:
"primo valore";"secondo valore";"terzo valore";"ecc ecc ecc"
Saluti.