Listbox Inhalt sortieren
03.02.2004 11:31:18
UglyKidChriS
ich habe ein Problem... ich lasse über ein Makro den Inhalt eines Ordners in einer Listbox anzeigen. Funktioniert soweit auch ganz gut, nur hab ich das Problem, dass der die Dateien nach dem Anfangsbuchstaben sortieren sollte, diese aber in irgend einer wirren Reihenfolge ausgibt. Hier mein Script:
Sub ListBoxEinlesen1()
Application.StatusBar = "Lese aktuelle Dateiliste ein..."
Worksheets("Einlesen").ListBox1.Clear
ordner = " c:\test " 'Quellpfad definieren
If Right(Worksheets("Pfade").Cells(2, 2).Value, 1) <> "\" Then
strverzeichnis_meta = Worksheets("Pfade").Cells(2, 2).Value & "\"
End If
If Right(Worksheets("Pfade").Cells(1, 2).Value, 1) <> "\" Then
strverzeichnis_str = Worksheets("Pfade").Cells(1, 2).Value & "\"
End If
dateien = Dir(strverzeichnis_meta)
Do While dateien <> ""
zeichen = InStr(1, dateien, ".")
listeneintrag = dateien
Worksheets("Einlesen").ListBox1.AddItem dateien
dateien = Dir
Application.StatusBar = "Bitte warten... Liste wird eingelesen..."
Loop
Application.StatusBar = "Bereit."
End Sub