[Iska]

Rey71, на VBScript устроит?

Код:

Option Explicit

Dim strSourceFolder

Dim objFSO
Dim objGFLAx


Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
Set objGFLAx = WScript.CreateObject("GFLAx.GFLAx")

ScanSubFolders objFSO.GetFolder(WScript.CreateObject("WScript.Shell").CurrentDirectory)

Set objGFLAx = Nothing
Set objFSO   = Nothing

WScript.Quit 0

Sub ScanSubFolders(objFolder)
	Dim objFile
	Dim objSubFolder
	Dim strFilePath
	
	WScript.StdOut.WriteLine objFolder.Path
	
	For Each objFile In objFolder.Files
		Select Case LCase(objFSO.GetExtensionName(objFile.Name))
			Case "jpg", "jpeg", "jpe"
				WScript.StdOut.Write vbTab
				
				With objGFLAx
					.LoadBitmap(objFile.Path)
					
					If .Width < .Height Then
						WScript.StdOut.WriteLine "+ " & objFile.Path
						
						.Rotate -90
						
						.SaveJPEGQuality  = 95
						.SaveKeepMetadata = True
						
						strFilePath = objFile.Path
						objFile.Name = objFile.Name & ".bak"
						.SaveBitmap strFilePath
					Else
						WScript.StdOut.WriteLine "- " & objFile.Path
					End If
				End With
			Case Else
				' Nothing to do
		End Select
	Next
	
	For Each objSubFolder In objFolder.SubFolders
		ScanSubFolders objSubFolder
	Next
End Sub

Работает под cscript.exe (из-за прямого вывода — для красоты — в StdOut). Единственное, что мне не нравится — работа с текущим каталогом, а не с заданным параметром скрипта. Ну, да ладно.

Обычно же такие вещи реализуют посредством ImageMagick.

[Rey71]

Все работает. Спасибо большое.
А как в Вашем скрипте задается выбор файлов с текущей датой создания? Ткните носом в строчку, плиз ))).

[Iska]

А как в Вашем скрипте задается выбор файлов с текущей датой создания? Ткните носом в строчку, плиз ))). »

Хмм… А некуда тыкать. То, что было про текущую дату в тексте сообщения — совершенно запамятовал сделать после перевода на VBScript . Приношу Вам свои извинения.

Пробуйте:

Код:

Option Explicit

Dim strSourceFolder

Dim objFSO
Dim objGFLAx


Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
Set objGFLAx = WScript.CreateObject("GFLAx.GFLAx")

ScanSubFolders objFSO.GetFolder(WScript.CreateObject("WScript.Shell").CurrentDirectory)

Set objGFLAx = Nothing
Set objFSO   = Nothing

WScript.Quit 0

Sub ScanSubFolders(objFolder)
	Dim objFile
	Dim objSubFolder
	Dim strFilePath
	
	WScript.StdOut.WriteLine objFolder.Path
	
	For Each objFile In objFolder.Files
		Select Case LCase(objFSO.GetExtensionName(objFile.Name))
			Case "jpg", "jpeg", "jpe"
				If DateDiff("d", objFile.DateCreated, Date()) = 0 Then
					With objGFLAx
						.LoadBitmap(objFile.Path)
						
						If .Width < .Height Then
							WScript.StdOut.WriteLine vbTab & "+" & vbTab & objFile.Path
							
							.Rotate -90
							
							.SaveJPEGQuality  = 95
							.SaveKeepMetadata = True
							
							strFilePath = objFile.Path
							objFile.Name = objFile.Name & ".bak"
							.SaveBitmap strFilePath
						Else
							WScript.StdOut.WriteLine vbTab & "-" & vbTab & objFile.Path
						End If
					End With
				Else
					WScript.StdOut.WriteLine vbTab & "*" & vbTab & objFile.Path
				End If
			Case Else
				' Nothing to do
		End Select
	Next
	
	For Each objSubFolder In objFolder.SubFolders
		ScanSubFolders objSubFolder
	Next
End Sub

[Rey71]

Спасибо огромное! Теперь увидел!