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

日々大量のファイル管理に追われている実務担当者の方々へ。手作業でのファイル削除は労力と時間を浪費します。この記事では、特定フォルダ内の全ファイルを一括で削除するVBAコードを紹介し、業務効率化のお手伝いをします。

サンプルコード

VBA

Option Explicit
Sub DeleteFilesInFolder()
    Dim fso As Object, folder As Object, file As Object
    '指定のフォルダパス
    Dim targetFolderPath As String
    targetFolderPath = "C:\\指定フォルダ名"

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(targetFolderPath)

    Application.DisplayAlerts = False '確認メッセージを非表示にする
    For Each file In folder.Files
        file.Delete 'ファイル削除
    Next file
    Application.DisplayAlerts = True '確認メッセージを元に戻す
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

指定したフォルダパスが正しいことを確認してください。また、該当するファイルが存在することも確認してください。