Extreme Veteran
Beiträge: 573
 
| Hallo,
georg5862 - 24.06.19 20:59
Function SortFiles(files)
ReDim sorted(files.count - 1)
Dim file, i, j
i = 0
For Each file In files
Set sorted(i) = file
i = i + 1
Next
For i = 0 To files.count - 2
For j = i + 1 To files.count - 1
If sorted(i).DateLastModified < sorted(j).DateLastModified Then
Hier hatte ich geschrieben, dass du deine Kriterien einsetzen sollst. Wenn also nach Name sortiert werden soll, muss die Zeile lauten:
If sorted(i).Name < sorted(j).Name Then
Rest sollte passen.
-----
Gruss - Peter |
Ordnerinhalt (pdf-Dateien) ausdrucken