Datenfeld sortieren
08.08.2003 15:24:16
Grallinger René
Folgende Situation:
Das Einlesen von Dateien in eine Listbox erfolgt unsortiert.
Nun sollen jedoch die Daten sortiert in der Listbox aufgelistet sein.
Wie kann ich das Datenfeld sortieren?
Danke und Gruss
René
Beispiel:
Option Explicit
Dim intI As Integer
Dim intY As Integer
Dim Datenfeld()
Dim strPath As String
Dim strFileName As String
Private Sub UserForm_Initialize()
strPath = "C:\Temp\"
strFileName = "*.*"
With Application.FileSearch
.Filename = strFileName
.LookIn = strPath
.Execute
intI = .FoundFiles.Count
ReDim Datenfeld(intI)
For intY = 0 To intI - 1
Datenfeld(intY) = .FoundFiles(intY + 1)
Next intY
Me.ListBox1.List() = Datenfeld
End With
End Sub
Anzeige