Neueste Datei per Batch herausfinden

[Firzen]

Hallo Leute

Der untenstehende Code funktioniert tiptop. Nun möchte ich aber nur die neuste Datei mit der endung .bat suchen und diese dann auf einen Stick oder Platte speichern. Aber ich habe absolut keine Ahnugn wie das gehen soll. Ich hoffe es kann mir jemand helfen.

Dim fNewest
set oFolder=createobject("scripting.filesystemobject") .getfolder("C:\ComaFiles2Backup")
For Each aFile In oFolder.Files
If fNewest = "" Then
Set fNewest = aFile
Else
If fNewest.DateCreated < aFile.DateCreated Then
Set fNewest = aFile
End If
End If

Next

MsgBox "Neueste Datei: " + fNewest.name



Gruss Firzen