Ordnerinhalt (pdf-Dateien) ausdrucken
PeterDoering
Gesendet: 25.06.19 00:23
Betreff: RE: Ordnerinhalt (pdf-Dateien) ausdrucken



Extreme Veteran

Beitr├Ąge: 396
100100100252525
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
Top of the page Bottom of the page