MOV0****.MQV系連番(VBS) だよ。

DoCoMo携帯 SO505iS でオリジナルのムービーを見る際には、フリーの 「3GP_Converter」っていうの使うんですけど、出来上がったこの MQV ファイルは、パソコンのQTでは見れない。　拡張子を一度、　3gp　へ変換してやると見れるようになるんですけど、今度　3gp　のままでは、 SO505iS では見られない。　とても難儀ぃなお話です。(ーー;)

Dim objArgs,fso,PH,flist(9999),cs exn = "3gp" Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PH = objArgs(I) Next Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder( PH ) i = 0 For Each fx In f.Files fxp = fx.path Ex = fso.GetExtensionName(fxp) If LCase(Ex) = LCase(exn) Then Set flist(i) = fso.GetFile(fxp) i = i + 1 End If Next Set fso = CreateObject("Scripting.FileSystemObject") Set stm = fso.CreateTextFile(f.Path & "\CONVERT_LOG.txt", True) For s = 0 to i-1 Set fn = flist(s) cx = "0"&"0"&"0" & (s+1) cs = Mid(cx, Len(cx)-3, Len(cx)) stm.WriteLine( fn.Name & "　→ → →　MOV0" & cs & "." & UCase("mqv") ) fn.Name = "MOV0" & cs & "." & UCase("mqv") Next stm.Close If s=0 Then Msgbox "変換対象のファイルがありませんでした。!!　" Else Msgbox "MOV0****.MQV 形式 ナンバリング完了!!　" End If

そこで、↑ こちら、3gpファイル をまとめて、MOV0****.MQV 形式の連番ファイルにしてしまう VBS です。

コピペして適当に、「 3GP-連番MQV変換.VBS 」とかって名前付けてください。

3gp をひとまとめにしたフォルダーをそこへドラッグすると連番ファイルへ一括変換してくれます。

WindowsXP_SP2 + IE6.0環境で軽く動作確認していますが、いつも同様責任取れませんので・・・

※なお、3gp への一括変換は、先日紹介の　http://blog.so-net.ne.jp/petamun/2007-05-28　拡張子チェンジャマン できます。

/// ０７年５月３１日PS : ///////////////////////
あっ、今日で VISTA キャンディデート の使用期限もおわりかぁ。(ふぅ)　あまりの重さにXP復元時のフォーマットにしか使っていかったですぜぃ (ーー;)。

・・・余談はさておきまして、本日、作業ログが残せるようになりました。 まだ確認してないのでログあっているか不明です。

コメント 1

(。・_・。)２ｋさま、ありがとうございまうーすぅ。
by うっぴぃ〜 (2007-06-02 08:14)