[rancid]

Код:

WorkDir="E:\BackUp\"
set fso = createobject("scripting.filesystemobject")  
set sha = createobject("shell.application")  
set dir = sha.namespace(WorkDir)  
set arr = dir.items  
arr.filter 192, "*.full"  
for i = 0 to arr.count - 1  
   if i = 0 then
      set fnewest = fso.getfile(arr.item(i).path)
   else
      if fnewest.datecreated < fso.getfile(arr.item(i).path).datecreated then  
         set fnewest = fso.getfile(arr.item(i).path)  		'получаем последний полный бэкап
      end if  
   end if  
next 


set narr = dir.items
narr.filter 192, "*.trl"

for i = 0 to narr.count - 2
	for j = i+1 to narr.count - 1
		set min = narr.item(i).path
		set num = i

		if min.datecreated > fso.getfile(narr.item(j).path).datecreated then
			set min = narr.item(j)			'сортируем часовые бэкапы по дате создания
			set num = j
		end if

	next
	set narr.item(num) = narr.item(i)
	set narr.item(i) = num
next

Решение, наверное, не красивое, но действенное. На выходе - fnewest содержит путь к последнему файлу с расширением .full, массив narr содержит отсортированный по дате создания список файлов с расширением full.