Discussione:
Riempire una casella combinata con un elenco cartelle
(troppo vecchio per rispondere)
Alberto
2008-04-16 10:15:00 UTC
Permalink
Buongiorno a tutti,
avrei necessità di riempire in automatico una casella combinata con i nomi
delle cartelle contenute in una directory, è possibile farlo con il codice
VBA ?
marco61
2008-04-16 12:41:01 UTC
Permalink
Post by Alberto
Buongiorno a tutti,
avrei necessità di riempire in automatico una casella combinata con i nomi
delle cartelle contenute in una directory, è possibile farlo con il codice
VBA ?
Nell'evento "Su apertura" della maschera dove è inserita, nel mio caso, una
casella di riepilogo chiamata Elenco1, inserisci questo codice:

Dim MyPath As String
Dim MyName As String
Me!Elenco1.RowSource = ""
MyPath = "C:\tua_directory\"
MyName = Dir(MyPath)
Do While MyName <> ""
Me!Elenco1.RowSource = Me!Elenco1.RowSource & MyName & ";"
MyName = Dir
Loop
Me!Elenco1.RowSource = Left(Me!Elenco1.RowSource, Len(Me!Elenco1.RowSource)
- 1)
Post by Alberto
attenzione, le ultime due righe sono una riga sola!!!!<<<
Ciao
MArco
marco61
2008-04-16 12:49:01 UTC
Permalink
Post by marco61
Post by Alberto
Buongiorno a tutti,
avrei necessità di riempire in automatico una casella combinata con i nomi
delle cartelle contenute in una directory, è possibile farlo con il codice
VBA ?
Nell'evento "Su apertura" della maschera dove è inserita, nel mio caso, una
Dim MyPath As String
Dim MyName As String
Me!Elenco1.RowSource = ""
MyPath = "C:\tua_directory\"
MyName = Dir(MyPath)
Do While MyName <> ""
Me!Elenco1.RowSource = Me!Elenco1.RowSource & MyName & ";"
MyName = Dir
Loop
Me!Elenco1.RowSource = Left(Me!Elenco1.RowSource, Len(Me!Elenco1.RowSource)
- 1)
Post by Alberto
attenzione, le ultime due righe sono una riga sola!!!!<<<
Ciao
MArco
le ultime 3 righe sono 1 sola !!!!

ho letto male il post, funziona solo con un elenco di files, con le
directory no, a meno che qualcuno sappia modificare il codice
Ciao
Alberto
2008-04-16 13:23:00 UTC
Permalink
Grazie tante comunque Marco
però non capisco perchè mi prende i file alternati.
ciao
Alberto
Post by marco61
Post by marco61
Post by Alberto
Buongiorno a tutti,
avrei necessità di riempire in automatico una casella combinata con i nomi
delle cartelle contenute in una directory, è possibile farlo con il codice
VBA ?
Nell'evento "Su apertura" della maschera dove è inserita, nel mio caso, una
Dim MyPath As String
Dim MyName As String
Me!Elenco1.RowSource = ""
MyPath = "C:\tua_directory\"
MyName = Dir(MyPath)
Do While MyName <> ""
Me!Elenco1.RowSource = Me!Elenco1.RowSource & MyName & ";"
MyName = Dir
Loop
Me!Elenco1.RowSource = Left(Me!Elenco1.RowSource, Len(Me!Elenco1.RowSource)
- 1)
Post by Alberto
attenzione, le ultime due righe sono una riga sola!!!!<<<
Ciao
MArco
le ultime 3 righe sono 1 sola !!!!
ho letto male il post, funziona solo con un elenco di files, con le
directory no, a meno che qualcuno sappia modificare il codice
Ciao
Alberto
2008-04-16 12:53:00 UTC
Permalink
Ti ringrazio marco ma così leggo solo i file contenuti in una cartella e solo
uno si e uni no. io invece ho bisogno di leggere i nomi delle cartelle.
Può darsi che sbagli io qualcosa ma ho controllato diverse volte.
Ancora grazie
ciao Alberto
Post by marco61
Post by Alberto
Buongiorno a tutti,
avrei necessità di riempire in automatico una casella combinata con i nomi
delle cartelle contenute in una directory, è possibile farlo con il codice
VBA ?
Nell'evento "Su apertura" della maschera dove è inserita, nel mio caso, una
Dim MyPath As String
Dim MyName As String
Me!Elenco1.RowSource = ""
MyPath = "C:\tua_directory\"
MyName = Dir(MyPath)
Do While MyName <> ""
Me!Elenco1.RowSource = Me!Elenco1.RowSource & MyName & ";"
MyName = Dir
Loop
Me!Elenco1.RowSource = Left(Me!Elenco1.RowSource, Len(Me!Elenco1.RowSource)
- 1)
Post by Alberto
attenzione, le ultime due righe sono una riga sola!!!!<<<
Ciao
MArco
Loading...