Registriert seit: 17. Nov 2010
1 Beiträge
|
AW: Neueste Datei per Batch herausfinden
17. Nov 2010, 09:50
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
|