.fllファイルを.mp4に変換するWSHスクリプト【fll2mp4.vbs】

いつごろからか、veohのダウンロードファイルが.fll形式になっています。
いろいろ検索してみると、どうやら.fllというのはH264/AVCのflvファイルらしいです。
変換に対応しているffmpgはrev.15611以上のバージョンらしい。
コマンドをたたくのは面倒なので、mp4に変換するWSHVBScriptを手探りで作ってみました。

http://blog.k-tai-douga.com/article/21071296.html
このあたりから、ffmpeg_bin-15611.zipを落として展開し
ffmpeg.exeと同じ位置にinputというフォルダを作り
その中に.fllファイルを放り込みます。何個でもいいです。
ffmpeg.exeと同じフォルダに

Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(WshShell.CurrentDirectory&"\input")
Set colFiles = objFolder.Files

For Each objFile in colFiles
    strFilename = objFSO.GetBaseName(objFile.Name)
	strCom = "ffmpeg.exe -y -i " + """input\"+strFilename + ".fll"" -vcodec copy -acodec copy """ + strFilename +".mp4"""
	If Err.Number = 0 Then
    	Set objFile = objFSO.OpenTextFile(strFilename&".bat", 2, True)
		If Err.Number = 0 Then
			objFile.WriteLine("cd "&WshShell.CurrentDirectory & vbCrLf &strCom)
			objFile.Close
		Else
			WScript.Echo "ファイルオープンエラー: " & Err.Description
		End If
	Else
		WScript.Echo "エラー: " & Err.Description
	End If
next

という内容の.vbsファイルを作ります。仮にfll2mp4.vbsとします。
こんな感じ。

.vbsファイルをダブルクリックして実行すると
同じフォルダに(fllファイル名).batが生成されるので
これもダブルクリックで実行します。
mp4ができたら喜んでください。