■

●●●ツールバーなどでダウンロードした、
flvのファイルをffmpegで●●●に変換してみた。
VBScriptでまじかるちぇんじしちゃうんだから。!!
実行すると失敗するファイルもあるけど、
手でコマンドを打つよりはと...。
同じディレクトリ内のflvのファイルを
全部変換します。
windowsXPでは動くみたいだよ。！！
ffmpeg.exeがあるディレクトリで実行だよ。！！

'----------------------------------------------まじかるちぇんじ.vbs
Option Explicit 
Dim CLPW
CLPW = "cmd /C dir /b | FIND "".flv"" > flvlist.txt"
Call SRJ(CLPW)

On Error Resume Next

Dim objFSO      ' FileSystemObject
Dim objFile     ' ファイル読み込み用
dim strFNPW,  strFNPWLEN ,strFNPWAF
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    Set objFile = objFSO.OpenTextFile("flvlist.txt")
    If Err.Number = 0 Then
        Do While objFile.AtEndOfStream <> True
'            WScript.Echo objFile.ReadLine
            strFNPW = objFile.ReadLine
            strFNPWLEN = len(strFNPW) - 4
            strFNPWAF = Mid(strFNPW, 1, strFNPWLEN) 
'            WScript.Echo strFNPWAF
            CLPW = "cmd /C ffmpeg -i """ & strFNPW & """ -ar 44100 """ & strFNPWAF & ".mp3"""
'            CLPW = "cmd /C ffmpeg -i """ & strFNPW & """  """ & strFNPWAF & ".mpg"""
            Call SRJ(CLPW)
        Loop
        objFile.Close
    Else
        WScript.Echo "ファイルオープンエラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFile = Nothing
Set objFSO = Nothing

'----------------------------------------------
Function SRJ(CLPW)		
    Dim OSHELLPW			
    Set OSHELLPW = WScript.CreateObject ("WSCript.shell")		
'    WScript.Echo CLPW		
    OSHELLPW.run CLPW,  , true	
    Set OSHELLPW = Nothing		'シェルオブジェクト解除
End Function