FileDeleteでワイルドカードはかけないのですか?
- このフォーラムに新しいトピックを立てることはできません
- このフォーラムではゲスト投稿が禁止されています
gs_kuwabara
投稿数: 229
![長老 長老](../../uploads/rank3dbf8eb1a72e7.gif)
いつもいつもお世話になっております
あるフォルダ内のビットマップをタスク前処理で
削除したいのですが
FileDelete('c:\temp\*.bmp')
の様に書く事は出来ないのでしょうか?
FileDelete('c:\temp\AAA.bmp')
と書くと削除できるのですが・・・
あるフォルダ内のビットマップをタスク前処理で
削除したいのですが
FileDelete('c:\temp\*.bmp')
の様に書く事は出来ないのでしょうか?
FileDelete('c:\temp\AAA.bmp')
と書くと削除できるのですが・・・
投票数:0
平均点:0.00
muka
居住地: 東京都練馬区
投稿数: 69
![常連 常連](../../uploads/rank3dbf8e9e7d88d.gif)
gs_kuwabaraさん、こんにちは。
ワイルドカードは使えません。
MAGICでやるならFileListGet関数でリストを取得すれば良いかと思いますよ。
ワイルドカードは使えません。
MAGICでやるならFileListGet関数でリストを取得すれば良いかと思いますよ。
投票数:0
平均点:0.00
sigeno56
投稿数: 336
![長老 長老](../../uploads/rank3dbf8eb1a72e7.gif)
FileListGet関数・・・昔ならmgtoolsで、mgfind系を使っていましたけどね。
v10になって便利な関数が増えましたね。
v10になって便利な関数が増えましたね。
投票数:0
平均点:0.00
gs_kuwabara
投稿数: 229
![長老 長老](../../uploads/rank3dbf8eb1a72e7.gif)
sigeno56さま
mgtoolsって名前からして色々出来そうなのですが
どうしたら入手できるのですか?
mgtoolsって名前からして色々出来そうなのですが
どうしたら入手できるのですか?
投票数:0
平均点:0.00
gs_kuwabara
投稿数: 229
![長老 長老](../../uploads/rank3dbf8eb1a72e7.gif)
mukaさん
ありがとうございました
ありがとうございました
投票数:0
平均点:0.00
sigeno56
投稿数: 336
![長老 長老](../../uploads/rank3dbf8eb1a72e7.gif)
こちらになります。
http://www.magicsoftware.co.jp/mginfo/library/userlib/v7/mgtl1600.htm
dbMAGIC V8以降では使えない機能もありますよ。
また、v10では、とって替わる機能が標準で用意されているものもあるでしょうし。
http://www.magicsoftware.co.jp/mginfo/library/userlib/v7/mgtl1600.htm
dbMAGIC V8以降では使えない機能もありますよ。
また、v10では、とって替わる機能が標準で用意されているものもあるでしょうし。
投票数:0
平均点:0.00
gs_kuwabara
投稿数: 229
![長老 長老](../../uploads/rank3dbf8eb1a72e7.gif)
sigeno56さま
ありがとうございます
早速、色々試してみます
ありがとうございます
早速、色々試してみます
投票数:0
平均点:0.00
pu_mahalo
居住地: 大阪
投稿数: 775
![長老 長老](../../uploads/rank3dbf8eb1a72e7.gif)
こんにちは もう既に解決されているかと思いますが
======================切り取り開始=====================
'起動方法
' 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は全て削除されます
参考までに
======================切り取り開始=====================
'起動方法
' 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は全て削除されます
参考までに
投票数:0
平均点:0.00