Azure_cui

http://www.geocities.co.jp/SiliconValley/1367/
(cont.) I've finally decided to use Azure_cui for JPEG lossless rotation. I wrote a vbs as follows to launch it from Leeyes.

' 	Azure で左回転  (2008/06/24)

option explicit
dim fso, sh, i, exepath, orgname, tmpname, command, result
set fso = WScript.CreateObject("Scripting.FileSystemObject")
set sh = WScript.CreateObject("WScript.Shell")

exepath = fso.GetParentFolderName(WScript.ScriptFullName) & "\azure_cui.exe -l -e -c -w"

if WScript.Arguments.Count = 0 then
	MsgBox "回転させる画像ファイルをドラッグ＆ドロップしてください"
	WScript.Quit
end if
for i = 0 to WScript.Arguments.Count - 1
	orgname = WScript.Arguments(i)
	if LCase(fso.GetExtensionName(orgname)) = "jpg" then
		tmpname = fso.GetBaseName(orgname) & ".org." & fso.GetExtensionName(orgname)
		if Right(fso.GetParentFolderName(orgname), 1) = "\" then
			tmpname = fso.GetParentFolderName(orgname) & tmpname
		else
			tmpname = fso.GetParentFolderName(orgname) & "\" & tmpname
		end if
		fso.MoveFile orgname, tmpname
		command = exepath & " """ & tmpname & """ """ & orgname & """"
		result = sh.Run(command, 7, True)
' 		msgbox command & vbcrlf & "result = " & result
		if result = 0 then
			fso.DeleteFile tmpname
		else
			fso.MoveFile tmpname, orgname
		end if
	end if
next

Hmm... What a trivial solution!