dateien brennen

Hallo!

Ich möchte für Win2k ein Skript schreiben, was Dateien sortiert, und dann brennt.
Soll so aussehen, dass es schaut, welche Dateien oder Ordner neu in dem Verzeichnis sind, und dann diese auf eine CD schreibt. Am besten eine bereits begonnene CD.
Welche Sprache sollte ich nehmen? Und wie könnte man das realisieren?

Danke schon mal.

Hallo,

Option Explicit

Dim objWshNetwork 'Netzwerk Objekt
Dim objWshShell 'Shell Objekt
Dim objFso 'File System Objekt
Dim objArgs 'Argumente Objekt
Dim objEnv 'Umgebungs Objekt
Dim objRegEx 'Regulärer Ausdruck

Set objWshNetwork = CreateObject(WScript.Network)
Set objWshShell = CreateObject(WScript.Shell)
Set objFso = CreateObject(Scripting.FileSystemObject)
Set objArgs = WScript.Arguments
Set objEnv = objWshShell.Environment(Process)
Set objRegEx = New RegExp

'_____________________________________________________________________

Dim Ordner, Datei, Erstelldatum, Datum_Akt, Diff, Quelle


Set Ordner = objFso.GetFolder(C:\Winnt)

For Each Datei in Ordner.Files
Quelle = Datei.Name
Datum_Akt = Now
Erstelldatum = Datei.DateCreated
Diff = Datum_Akt - Erstelldatum
Set Datei = objFso.GetFile(C:\Winnt & Quelle)
If Diff > 1 Then
objFso.MoveFile Datei, C:\Temp\ & Quelle
End If
Next

Also, den Quelltext speicherst du in einer Datei mit Endung .VBS!! Was macht es denn? Das Script überprüft in dem angegebenen Ordner (solltest du auch anpassen) alle Dateien auf ihr Erstelldatum. Wenn dieses älter als einen Tag ist (if diff > 1) dann weg in separaten ordner. statt movefile kannst du auch copy file nehmen, dann bleiben die Dateien im alten ordner auch noch da. Dann machst du einen Job mit Nero, der dir immer das gleiche Verzeichnis auf CD brennt.  So hast du immer deine aktuellen Daten

Gruß, Marco