気軽に「こんなソフトありませんか？」Part.165

233 ：名無しさん＠お腹いっぱい。：2014/10/16(木) 17:41:38.46 ID:tj8IZOrO0.net

>>222
Irfanview
普段のビューアとして使えるし、コマンドラインオプションも豊富
コマンドラインの詳細は、i_options.txtで

以下を適当な名前を付け、拡張子「vbs」で保存
その***.vbs本体またはそのショートカットに連結したい複数画像をD&Dすると、同じフォルダに縦に連結されたjpgファイルが出来る
出力画像幅は一番目に指定した画像幅に統一される(Irfanview仕様)
出来るファイル名は「(p) + 一番目に指定された画像ファイル名」になる
※D&Dする時掴んだファイルが一番目になるらしい(あくまでも"らしい"ので、あてにしないでくれ)
----------------------------------------------------------------------------------------------------
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
WshShell.CurrentDirectory = fso.GetParentFolderName(objArgs(0))

Irfanview = "Irfanviewのパス" '←←←ここにIrfanviewのexeパスを入れる

For Each oItem In objArgs
source_files = source_files & "," & oItem
Next

WshShell.Run """" & Irfanview & """" & " /panorama=(2" & source_files & ") /convert=" & "(p)" & fso.GetFileName(objArgs(0))
----------------------------------------------------------------------------------------------------