killステートメントで

質問

お世話になります。

excelVBAで、フォルダ内にある殆どが共通性のない名前の
ファイル数個を一度に削除するには、どう書けば良いのでしょうか？
但し、削除してはいけないファイルもあります。

これらはマクロ実行する度に作成される仮ファイルで、
確認のためにその都度削除せずに残してあります。

残った削除可能ファイル
１１１１２.xls
２２２２２.xls
３３３３３.xls
４４４４４.xls
５５５５３.xls

削除不可ファイル
８８８８８.xls

dim scrp1 as string, scrp2 as string

scrp1 = "C:\*2.xls"
scrp2 = "C:\*3.xls"

kill scrp1, scrp1, ８８８８８.xls

↑わざわざ変数を使う必要もありませんが
このような一気消しはできないのでしょうか？

お手数おかけしますが、よろしくご教示下さい

回答No.1

doara_2011 · ベストアンサー

自分ならkillステートメントでワイルドカードは使用しません。
本当に自分の消したいファイルだけを消してくれるのかわかりませんから。

killステートメントは一つしか引数を認めてませんので、素直に
kill "１１１１２.xls"
kill "２２２２２.xls"
....
と5行書くのが無難ではないかと。

ま、僕は数にもよりますが、For Each を使って以下のように書くのが好みです。
For Each f In Array("１１１１２.xls", "２２２２２.xls", "３３３３３.xls")
　　Kill CStr(f)
Next

あと、Arrayの括弧の中は、いくらでも追加できます。
以上

お礼

素早い回答ありがとうございました。

戴いた回答をベースに色々試してみましたが、結局思うように
いきませんでしたので、毎回削除用フォルダを作成させた中に
保存させて、ワイルドカードで消すようにしました。
時間がなくて対話出来ませんでしたが感謝致します。。。