【VBA】ファイルを削除(DeleteFile) | デイレコ DairyRecord-blog

FileSystemObjectのDeleteFileメソッドについてです。

DeleteFileメソッド

指定したファイルを削除します。

FileSystemObject.DeleteFile filespec,[force]

[ ]は省略可という意味

引　数	必須 / 省略可	詳　細
削除するファイル (filespec)	必須	・削除するファイルパスを指定。（削除するファイルがない場合はエラー）・ワイルドカードで複数削除可。（.txt とか .xlsx など）
読み取り専用 (force)	省略可	・読み取り専用属性が設定されたファイルを削除するかbool値で指定。 True：削除する False：削除しない（既定値） ※読み取り専用ファイルを削除する場合、True指定しないとエラー。

test1.txtを削除

Sub ファイル削除()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'test1.txtを削除

fso.DeleteFile "D:\FSO\test1.txt"

End Sub

ワイルドカードでcsvファイルを全削除

Sub 複数ファイルを削除()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'ワイルドカードでcsvファイルを全削除

fso.DeleteFile "D:\FSO\*.csv"

End Sub

エクセルファイルのtest1.xlsxが読み取り専用ファイルの場合の削除
(第2引数→True)

Sub 読み取り専用ファイル削除()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'エクセルファイルのtest1.xlsxが読み取り専用ファイルの場合の削除(第2引数→True)

fso.DeleteFile "D:\FSO\test1.xlsx", True

End Sub

※もし第2引数をTrue指定しないと下記のようなエラー表示がでます。