【VBA】特定のフォルダ内の全ファイルを完全一致で削除する方法

日々の業務では、大量のファイルの中から特定のファイルだけを素早く削除したい場面があります。手作業だと時間がかかるだけでなくミスも増えます。この記事では、Excel VBAを使って特定のフォルダ内の全ファイルを完全一致で削除する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub DeleteFiles()
    Dim fso As Object, folder As Object, file As Object
    Dim targetFolder As String
    Dim fileName As String
    
    ' 対象フォルダのパスを指定
    targetFolder = "C:\TestFolder"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(targetFolder)
    Application.ScreenUpdating = False
    For Each file In folder.Files
        If file.Name = fileName Then ' 完全一致で削除するファイル名を指定
            file.Delete
        End If
    Next file
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。また、ファイル名が存在しない場合もエラーになりますので、その点にも注意してください。