Удаление файлов из папки по условию (размер)

[Vasьka]

Папка в WinXP содержит несколько тысяч файлов .jpg.
Требуется автоматизировать процесс удаления всех файлов, размер которых менее заданного.

[kuklp]

Заказы обычно размещают здесь:
http://www.programmersforum.ru/forumdisplay.php?f=29

[EducatedFool]

А в чем проблема-то?

1) получаем список файлов в папке:
http://excelvba.ru/code/FilenamesCollection

2) в цикле перебираем все найденные файлы, сравниваем размер с заданным значением, и удаляем ненужные:
Например:

if FileLen(filename$)<10240 then kill filename$ ' удаление файлов меньше 10кБ

[Vasьka]

Спасибо за VBA, но уже "успело решиться" на .vbs

Folder = "c:\folder"
Set objFSO = CreateObject("Scripting.FileSystemO bject")
Set objFolder = objFSO.GetFolder(Folder)
Set colFiles = objFolder.Files

For Each objfile In colFiles
If objfile.Size < 1500 Then objfile.Delete (True)
Else
End If
Next