Eingelesene Dateien nach Datum sortieren

[repök]

Zuviel Werbung?
-> Hier kostenlos registrieren

Wie man unter Flexible Dateien einliest, aussucht, Werte sucht weiss ich jetzt. Nun stehe ich vo dem nächsten Problem.....:???:
Wie kann ich Dateien nach erstellungsdatum Sorieren ? hatte schon mal an ein Dictonary gedacht, oder gibt es da besondere befehle? bis jetzt werden die Dateinamen alphabetisch geordnet in Variablen geschrieben.

 

[volker]

ich beziehe mich auf das vb-script sprachverzeichnis

grundsätzliches vorgehen

liste der dateien einlesen und in eine dateiname(indexzähler) schreiben. siehe Files-Auflistung
zum abfragen der eigenschaften siehe DateCreated,DateLastModified,DateLastAccess
diese eigenschaft auch in der schleife speichern. eigenschaft(indexzähler)
danach sortieren.

'dateien einlesen
    Dim fs, f, f1, fc, s, name(1000),eigenschaft(1000)
    Set fs = CreateObject("Scripting.FileSystemObject")
 folderspec="C:\meinOrdner"
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 in fc
 index=index+1        
 name(index) = f1.name 
 dla = f1.DateLastAccessed 
 eigenschaft(index)=right(dla,4)&mid(dla,4,2)&left(dla,2) 
    Next
'schnelle sortierung
 offset = index / 2
 do while offset > 0
  limit = index - offset
  do
   tauschen = falsch
   FOR zeile = 1 TO Limit
             IF eigenschaft(zeile) > eigenschaft(zeile + Offset) THEN
     name2 = name(zeile+1)
     name(zeile+1) = name(zeile)
     name(zeile) = name2
     eigenschaft2 = eigenschaft(zeile+1)
     eigenschaft(zeile+1) = eigenschaft(zeile)
     eigenschaft(zeile) = eigenschaft2
         Tauschen = zeile
       END IF
         NEXT
         Limit = Tauschen - Offset
     LOOP WHILE Tauschen
       Offset = Offset \ 2
 LOOP
'daten in file schreiben
Set TextFile1 = fs.CreateTextFile(folderspec+"\!index.tmp", True)
for i = 1 to index
 TextFile1.Writeline eigenschaft(i) & " "& name(i)
next

 

[repök]

Zuviel Werbung?
-> Hier kostenlos registrieren

Danke !!

Das klappt hundertprozentig. Echt Klasse, war auf dem selben weg, allerdings kenne ich ja von VB noch nocht so richtig viel.....
Dies Forum kann man nur empfehlen.
Volker, nochmals danke !!