pdfiをもう少しだけ便利に
自炊したjpgデータがあるけど、Androidで読むのにpdfの方がいいなーって事になったらフォルダ毎にpdfを作りたくなる。
しかしそんな都合の良いソフトがあるわけでもなく、運良く出会ったPDF Designer – Image Editionはフォルダ登録するとフォルダ名のファイルを作ってくれるけど、フォルダ毎という都合が良い事が出来ません。
とっても助かってますけど、一つ一つフォルダをドラッグする作業だけでも自動化しようと思ってスクリプトを書きました。
'pdfiを利用してフォルダ毎にPDF化するたの ' pdfiHandle.vbs ' 'pdfiは下記の場所にあることを想定 'C:Program Filespdfipdfi.exe ' Option Explicit ' 環境設定 Const pdfiPath = """%SystemDrive%\Program Files\pdfi\pdfi.exe""" Const sleepTime = 500 Const delayTime = 30000 '環境設定ここまで dim arg, i '引数とカウンタ用 Set arg = WScript.Arguments For i=0 to arg.Count - 1 DoRun(arg(i)) Next WScript.Echo "pdfiHandle終了しました。" Function DoRun( folderName ) dim objWshShell, cmd set objWshShell = Wscript.CreateObject("WScript.Shell") 'コマンド文字列生成して実行 cmd= pdfiPath & " """ & folderName & """" Call objWshShell.Run(cmd ,1,False) '起動指示 WScript.Sleep sleepTime '起動待ち objWshShell.SendKeys("{ENTER}") 'リスト表示にEnter WScript.Sleep delayTime '処理待ち End Function
wshでpdfiを操作しているだけなので、ちょっとほったらかせる時にどうぞ。