Elencazione files in controllo Combobox

di coccobello il
3 risposte
Utente Attivo
Iscritto da
mar, 2022
Messaggi
114
Con questa routine in VBA inserisco tutti files di testo presenti in una cartella
all'interno di un controllo Combobox:
Sub FileElencoInCombobox()
Dim fso, f, , fc, s
Dim A As Integer
A = 0
Set fso = CreateObject("Scripting.FileSystemObject")
myDir = "C:\Documenti\"
Set f = fso.GetFolder(myDir)
Set fc = f.Files
With Combobox1
For Each In fc
A = A + 1
s = s & A & ". " & .Name & vbCrLf
.additem .name
Next
End with
End Sub
Funziona benissimo: tuttavia i files sono inseriti alla rinfusa; vorrei che invece fossero disposti in ordine alfabetico.
(Es.: C:\Documenti\Abaco.txt
C:\Documenti\Banco.txt
C:\Documenti\Casa.txt
C:\Documenti\Dama.txt)
Come posso fare?

3 Risposte

  • Molto attivo
    Iscritto da
    feb, 2021
    Messaggi
    637
    La sezione continua ad essere sbagliata, e i tag pure...
    Ad ogni modo: caricali in un array, ordini l'array e poi riempi la combobox
  • Utente Attivo
    Iscritto da
    mar, 2022
    Messaggi
    114
    Chiedo scusa per l'errore.
    Potresti farmi un esempio?
  • Molto attivo
    Iscritto da
    feb, 2021
    Messaggi
    637
    Ma hai praticamente già scritto tutto...
    Alla peggio può servirti l'algoritmo di ordinamento, ma su google se ne trovano a pacchi. Ad esempio questo.
    Anche se a me la collection Files arriva già ordinata alfabeticamente.
Devi accedere o registrarti per scrivere nel forum
3 risposte