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?