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.


Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.