[ VBA ] ワイルドカード指定でファイルの一括削除 ( kill / FileSystemObject.DeleteFile )

Tweet

Pocket

ここでは、1つずつファイルを削除する方法と複数のファイルを一括して削除するサンプルスクリプトを掲載しています。

ファイルを１つずつ削除

ファイルパスを指定して削除するサンプルスクリプトです。kill ステートメントを使用する方法と FileSystemObject を使用する2つ方法を掲載しています。

' kill ステートメントを使用する場合
Kill "E:\dir\test1.txt"

' FileSystemObject を使用する場合
With CreateObject("Scripting.FileSystemObject")
    .DeleteFile "E:\dir\test1.txt"
End With

良くあるエラーとしてはファイルが存在しない場合に、以下のように実行時エラーが発生します。従って Dir 関数などを使用してのファイルの存在確認は必須です。または、On Error Resume Next でエラーを無視するかです。

実行時エラー ’53’ : ファイルが見つかりません

他のアプリが開いていても、案外削除されます。エラーを発生させることができませんでした。。。。

複数のファイルを一括削除（ワイルドカード指定）

Kill ステートメントおよび、FileSystemObject.DeleteFile はワイルドカード指定で複数のファイルを一括して削除することができます。

ワイルドカードとは、ファイル名に、「 * 」 や 「 ? 」 を使用できます。「 * 」 は任意の文字列を、「 ? 」 は任意の１文字を意味します。つまり、「 ?? 」 は任意の2文字を意味することになります。

' 拡張子が .xlsx のファイルを全て削除
Kill "E:\dir\*.xlsx"

' すべてのファイルを削除する
With CreateObject("Scripting.FileSystemObject")
    .DeleteFile "E:\dir\*"
End With

Tweet

Pocket