フォルダ内のBMPファイルをJPG一括変換

フォルダ内のBMPファイルをJPG一括変換します
KBC.DLL、SaveJPG.DLLが必要です。 こちらからダウンロードしてください ■Windows/XP,IE6で動作確認済み
■使いかた
1.拡張子.vbsで適当なファイルを作成する
2.このvbsファイルをエディタで開く
3.下記ソーズをコピー、上記で開いた.vbsのファイルに貼り付ける
4.保存・終了する
5.bmpがあるフォルダにこのvbsをコピーする 6.このvbsファイルを実行（ダブルクリック）→そのフォルダのbmpファイルがjpgファイルに変換されます

■ソース
Dim oKbc Dim nRes Set oKbc = CreateObject("KBC.Convert") folderpath = "./" set ofs = CreateObject("Scripting.FileSystemObject") set folder = ofs.GetFolder(folderpath) for each a in folder.Files set file = ofs.GetFile(folderpath & a.name) if right(a.name,4)=".bmp" then newN = Replace(a.name, ".bmp", ".JPG") nRes = oKbc.BMPtoJPG(a.name,newN) a.delete() end if next

■免責うんぬん
・本VBSによる使用者の損害どうのこうの補償は作成者は一切関知しません
　使用者の責においてご利用ください
質問・要望はこちらから
こちらのオークションでプログラミングの書籍を出品してます