[Iska]

Код:

Option Explicit

Dim strFolder

Dim objFile
Dim strFile
Dim dtDateCreatedNewest


strFolder = "D:\test"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strFolder) Then
		strFile             = ""
		dtDateCreatedNewest = #01/01/1970#
		
		For Each objFile In .GetFolder(strFolder).Files
			If objFile.DateCreated > dtDateCreatedNewest Then
				If .FileExists(strFile) Then
					.GetFile(strFile).Delete True
				End If
				
				strFile = objFile.Path
				dtDateCreatedNewest = objFile.DateCreated
			Else
				objFile.Delete True
			End If
		Next
		
		WScript.Echo strFile, dtDateCreatedNewest
	Else
		WScript.Echo "Folder [" & strFolder & "] not found."
	End If
End With

WScript.Quit 0