code:
Option Explicit
Dim objShell, objFSO
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

sub DoStuff(fileName)
	objShell.Run "mspaint.exe " & Chr(34) & fileName & Chr(34), 5, false  
       	WScript.Sleep 700
	objShell.SendKeys "^w50{TAB}50~^s" 'Decrease image size in two times
       	Wscript.Sleep 700
      	objShell.SendKeys "%{F4}"
End Sub

dim objF
For Each objF in objFSO.GetFolder(objShell.CurrentDirectory).Files
	if InStr(lcase(objF.type), lcase("image")) Then  DoStuff(objF.name)
Next
 

Quote:

---

Яж его только для уменьшения использую, нафига там ресамплинги)

---

Quote:

---

для этого есть скрипты в фотошопе, который умеет нормально ресайзить картинки

---

В ответ на:

---

Гы, а что такое по твоему уменьшение?

---