Listbox absteigende Sortierung
18.07.2006 17:01:40
Holger
lese Dateien in eine Listbox ein, diese hätte ich aber gern absteigend nach Dateinamen sortiert.
Mein Code:
Private Sub UserForm_Initialize()
Dim iCounter As Integer
Dim sFolder As String
sFolder = GetDirectory
If sFolder = "" Then End
With Application.FileSearch
.LookIn = sFolder
.FileType = msoFileTypeAllFiles
.Execute
For iCounter = 1 To .FoundFiles.Count
lstFiles.AddItem .FoundFiles(iCounter)
Next iCounter
End With
End Sub
Kann mir jemand helfen ?
mfg
Holger
Anzeige