VBScipt For each

[mceck]

Moin zusammen,

ich habe ein kleines Problem bei meinem VBScript (Auszug ohne Variablendeklaration etc)

Set SourceObj = fso.GetFolder(SOURCE)
For Each fileObj in SourceObj.Files
	If LCase(Right(fileObj.Name, 4)) = FILEEXT Then
		LOG.WriteLine(Now() & Chr(9) & " copy " & fileObj.Name & " to " & BUFFER)
		fileObj.Copy (BUFFER)
		LOG.WriteLine(Now() & Chr(9) & " move " & fileObj.Name & " to " & BACKUP)
		fileObj.Move (BACKUP)
	End If
Next

Das Script verarbeitet alle Dateien, die in SOURCE liegen, in alphabetischer Reihenfolge. So weit, so gut.

Allerdings hätte ich es gerne, dass die Dateien nach Sortierung "Alter" verarbeitet werden (älteste zuerst).

Gibt es da eine einfach Möglichkeit in Verbindung mit "for each", oder muss ich da mit anderen Befehlen arbeiten? Evtl. Dateiliste + Modify-Zeit in ein Array schreiben, und das dann nach Zeit sortieren?

Gruß, mceck

[Tweak-IT]

Hier wäre die Lösung für Ordner:

Scripting Files and Folders using VBScript

Das sollte doch auf dein Problem umstrickbar sein ohne größere Probleme.

[mceck]

Danke dir, werd ich mir die Tage auf Arbeit mal genauer anschauen.
Aber laut Beschreibung wird nicht die Sortierung geändert, sondern einfach nur alles ausgefiltert, was älter als "Datum" ist.

[Exit]

Du wirst vermutlich keinen direkten Einfluss auf die Bearbeitungsreihenfolge haben.

Wenn Du sowas brauchst, muss Du wie beschrieben die Daten (Dateinamen + Änderungstimestamp) in ein Array schreiben und dieses dann nach dem Änderungstimestamp sortieren.

Dann kannste durch dieses iterieren, und die Dateien anhand der Dateinamen identifizieren und in den Backup Ordner verschieben (oder was auch immer).