General |
6.199 Riempire una casella di riepilogo con i nomi dei file contenuti in una directory |
Alessandro Baraldi |
Dim MyPath As String Dim MyName As String Me!Elenco.RowSource = "" MyPath = "c:\Documenti\" MyName = Dir(MyPath) Do While MyName <> "" Me!Elenco.RowSource = _ Me!Elenco.RowSource & MyName & ";" MyName = Dir Loop Me!Elenco.RowSource = _ Left(Me!Elenco.RowSource, _ Len(Me!Elenco.RowSource) - 1)Nell'esempio di cui sopra si presuppone che la casella di riepilogo si chiami Elenco, abbia una sola colonna e abia la proprietà Tipo origine riga impostata a Elenco valori. Si presuppone inoltre che la directory si trovi nel disco C: e si chiami Documenti. |