Re: mgtools

こんにちは　もう既に解決されているかと思いますが

======================切り取り開始=====================
'起動方法
' Wscript.exe fildel.vbs c:\work
' ^^^^^^^
' ↑
' フォルダ名
' Magicからは os　コマンドで　file.vbs　フォルダ名
'**********************************************************************
'---変数定義
Dim WshShell, objShell
Dim Fs,File,Foldername
'---インスタンス化
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")

'--- パラメータ判断してフォルダ名をGETします
If WScript.Arguments.Count = 1 Then
Foldername = WScript.Arguments.Item(0)
Else
WScript.Echo "パラメータ：フォルダ名を1個指定してください。"
End If


If Fs.FolderExists(Foldername)=False Then
'もしフォルダが既存しないなら終了
MsgBox Foldername & "フォルダが存在しません。"
WScript.Quit
End If

File=Foldername & "\*.bmp"
Fs.DeleteFile File 'ファイルを削除
============= 切り取り終了 =========================
上記のtextを fildel.vbs と言う名前で保存し
Magicからosコマンドで実行したら bmpは全て削除されます

参考までに