ffmpeg 簡易フロントエンドスクリプト

Windows 用の VB スクリプト。下記のスクリプトと ffmpeg.exe を同一ディレクトリに置き、スクリプトに対して音楽ファイルをドラッグアンドドロップすれば、オーディオビットレート 64kbps の MP3 ファイルに一括変換してくれる。

Set args = WScript.Arguments
Dim res
Dim scriptPath
scriptPath = WScript.ScriptFullName
scriptPath = left(scriptPath,len(scriptPath)-len(WScript.ScriptName))
Set oShell = WScript.CreateObject("WScript.Shell")
For i = 0 To args.Count - 1
res = oShell.Run( scriptPath & "ffmpeg.exe -i """ & args.item(i) & """ """ & args.item(i) & ".mp3""", 6, TRUE )
 ' if res = 0 then
 '   call oShell.run( "del """ & scriptPath & args.item(i) & """",, TRUE )
 '   call oShell.run( "rename """ & scriptPath & args.item(i) & ".mp3"" """ & scriptPath & args.item(i) & """",, TRUE )
 ' end if
Next
msgbox "Done!"

二重拡張子になるのは仕様。オリジナルファイルを消す機能は途中で辞めた。

エクスプローラの右クリックメニュー「送る」にスクリプトのショートカットを登録しておくと便利かもしれない。

※ 2020/07/02 度重なるブログ移転・ブログシステムのアップデートにより崩れた記事を校正。