Скрипт: Удаление jpeg файлов по разрешению

[Eternity]

если
в папке wallpepers jpeg файлы с разным разрешениями, нужно удалить все файлы у которых разрешение ниже 1680 x 1050

то используем скрипт:

' для явного объявления переменных (?)
Option Explicit
' задаем переменные
Dim strPath2Wallpapers
Dim lngHRes
Dim lngVRes

Dim objFile
Dim objImageFile

'значение переменных
strPath2Wallpapers = "C:\Wallpapers"
lngHRes = 1680
lngVRes = 1050

'Создаем объект FileSystemObject
With WScript.CreateObject("Scripting.FileSystemObject")
' Если папка есть, то получаем доступ к библиотеки wia для файлов изображений и вводим в переменную
If .FolderExists(strPath2Wallpapers) Then
Set objImageFile = WScript.CreateObject("WIA.ImageFile")
' для каждого файла в нужном каталоге (и свойств файла) 
For Each objFile In .GetFolder(strPath2Wallpapers).Files
' выбирает все файлы, преобразует их имена без верхнего регистра, смотрит их расширения
Select Case LCase(.GetExtensionName(objFile.Name))
' выбирает jpeg файлы
Case "jpeg", "jpg", "jpe"
With objImageFile
On Error Resume Next

.LoadFile objFile.Path
'хз 
If Err.Number = 0 Then
On Error Goto 0
'если разрешение меньше чем нужно, то вывести имя файла на экран и удалить его 
If .Width < lngHRes Or .Height < lngVRes Then
WScript.Echo CStr(.Width) & "x" & CStr(.Height), vbTab, objFile.Name
objFile.Delete True
End If
Else
Err.Clear
On Error Goto 0
' если с файлом чтото вывести сообщение об ошибки 
WScript.Echo "Can't load file [" & objFile.Name & "]"
End If
End With
' в противном случае ничего с файлом не делать
Case Else
' Nothing to do
End Select
Next

Set objImageFile = Nothing
Else
WScript.Echo "Folder [" & strPath2Wallpapers & "] not found"
End If
End With

WScript.Quit 0

[men]

Удобно и нет проблем с заморочкой, всё легко