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:
Come posso adattarlo alle mie esigenze ?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
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.

Rispondi quotando