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 度重なるブログ移転・ブログシステムのアップデートにより崩れた記事を校正。

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください