拡張子チェンジャマン(VBS)です。：遊ぶ大人の非常識 by きのこ組：SSブログ

	ブログをはじめるログイン

拡張子チェンジャマン(VBS)です。　[スクリプト言語など] [編集]

Dim objArgs,fso,PH,Pa,Pp,MyPh 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 ) Pa = WScript.ScriptFullName Pp = InstrRev(Pa,"\") MyPh = Left(Pa,Pp) Set stm = fso.CreateTextFile(f.Path & "\GPyINDEX.htm", True) stm.WriteLine( "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" ) stm.WriteLine( "<html><head><title> 拡張子チェンジャマン　</title></head>" ) 'stm.WriteLine( "<link rel='stylesheet' href='./_MySTYLE.css' type='text/css'>" ) stm.WriteLine( "<style ype='text/css'>" ) stm.WriteLine( "body { border:0; }" ) stm.WriteLine( "</style>" ) stm.WriteLine( "<BODY bgcolor='#d0d0d0' scroll='no' topmargin='0' leftmargin='0'>" ) stm.WriteLine( "<DIV style='padding:8 8 8 8; text-align:center;'><span id=ER style='color:#ff0000; font-size:12;'></span><FORM Name='ChgFo'>" ) stm.WriteLine( "<Select Name='ChgSel0'>" ) stm.WriteLine( "<option>対象_拡張子</option>" ) stm.WriteLine( "<option>.FLV</option>" ) stm.WriteLine( "<option>.MQV</option>" ) stm.WriteLine( "<option>.3GP</option>" ) stm.WriteLine( "<option>.MOV</option>" ) stm.WriteLine( "<option>.AVI</option>" ) stm.WriteLine( "<option>.WMV</option>" ) stm.WriteLine( "<option></option></Select><b> → </b>" ) stm.WriteLine( "<Select Name='ChgSel1'>" ) stm.WriteLine( "<option>変換_拡張子</option>" ) stm.WriteLine( "<option>.FLV</option>" ) stm.WriteLine( "<option>.MQV</option>" ) stm.WriteLine( "<option>.3GP</option>" ) stm.WriteLine( "<option>.MOV</option>" ) stm.WriteLine( "<option>.AVI</option>" ) stm.WriteLine( "<option>.WMV</option>" ) stm.WriteLine( "<option></option></Select>　<input type='button' value='CHANGE' onclick='ExChg()'>" ) stm.WriteLine( "<input Name='Hid' type='text' style='display:none; width:400;' value=" & CHR(34) & f.Path & CHR(34) & ">" ) stm.WriteLine( "<div style='padding:5 5 5 5; color:#777777; width:325; font-size:12;'>※空欄を選択すると拡張子無しファイルを対象にする事も、拡張子を削除することも可能です。</div>" ) stm.WriteLine( "<div style='padding:5 5 5 5; color:#777777; width:325; font-size:12;'>※他にも必要な拡張子がある場合には、セレクターへ OPTION 追加しませう。(そん際は左右対称にしてね。)</div>" ) stm.WriteLine( "</FORM></DIV>" ) stm.WriteLine( "<Script Language='VBScript' SRC='" & MyPh & "\ExtensionChanger_GPy.vbs'></Script>" ) stm.WriteLine( "<script language='JavaScript'></script>" ) stm.WriteLine( "</body></html>" ) stm.Close Set ie= WScript.CreateObject("InternetExplorer.Application") ie.Navigate(f.Path & "\GPyINDEX.htm") ie.Width = 360 ie.Height= 170 ie.AddressBar = False ie.MenuBar = False ie.ToolBar = False ie.StatusBar = False ie.ReSizable=False ie.Visible = True Function eChg(e0,e1) Dim fso,ext,fxp,fes,flist(999),i,n,fxx If e0=e1 then StCe=1 end If If e0="" then StCe=2 end If If e1="" then StCe=3 end If fps=Document.ChgFo.Hid.value Set fso = CreateObject("Scripting.FilesystemObject") Set fx = fso.GetFolder(fps) Select Case StCe Case 1 msgbox e0 & " = "& e1 &" 拡張子が同じですよ。　" ER.innerHTML= "※<b>エラー :</b> コンテキストメニューからウインドを更新してください。 " WScript.Quit Case 2 i = 0 For Each fes in fx.Files fxp = fes.Path ext = fso.GetExtensionName(fxp) If Ucase(ext) = Ucase(e0) Then Set flist(i) = fso.GetFile(fxp) i = i + 1 End If Next For n = 0 to i-1 Set fxx = flist(n) fxx.name = fxx.name & "." & Lcase(e1) Next 'Case 3 msgbox "e1 = " & e1 Case Else i = 0 For Each fes in fx.Files fxp = fes.Path ext = fso.GetExtensionName(fxp) If Ucase(ext) = Ucase(e0) Then Set flist(i) = fso.GetFile(fxp) i = i + 1 End If Next For n = 0 to i-1 Set fxx = flist(n) dt = instr(fxx.name,".") Ndat = left(fxx.name,dt) fxx.name = Ndat & Lcase(e1) Next End Select If n=0 Then Msgbox "作業は実行されませんでした。!!　" Else Select Case StCe 'Case 1 Case 2 e0="---" Msgbox "." & UCase(e0) & " から ." & UCase(e1) & " への変換完了!!　" Case 3 e1="---" Msgbox "." & UCase(e0) & " から ." & UCase(e1) & " への変換完了!!　" Case Else Msgbox "." & UCase(e0) & " から ." & UCase(e1) & " への変換完了!!　" End Select End IF End Function

このソースを○コヒペして作ったVBSファイルに、フォルダーをドラッグしてください。