ich möchte eine Liste aller Dateien in einem Verzeichnis in alphabetischer Reihenfolge, so dass sie in dieser Reihenfolge abgearbeitet werden können durch den weiteren Code,Dieser Code mit DIR (DIR$ ist nicht anderes) listet aber nur umgekehrt alphabetisch auf, wie kann man das umdrehen?:
Sub DateinamenAuflisten()
Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\files\*.doc")
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
Code soll eigentlich für ein Makro in Word sein, also in Zellen schreiben und dann sortieren kann ich nicht so machen.
Wer denn kleinen Befehl kennt, der es richtig macht, dme bin ich ziemlich dankbar.
Markus