>>619
'ドロップした圧縮ファイルを一括してZipファイルに変換するVBScript
'同期モードバージョン

Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objParm = Wscript.Arguments

objWshShell.CurrentDirectory = Replace(WScript.ScriptFullName,WScript.ScriptName,"")

If objParm.Count < 1 Then
WScript.echo "ファイルをドロップして下さい"
Else
For i=1 To objParm.Count
cmd = "com_convert.exe """ & objParm(i - 1) & """ zip"
objWshShell.Run cmd,1,True
Next
End If

Set objWshShell = Nothing