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

毎回手作業で大量のファイルを削除するのは大変ですよね？この記事では、特定のフォルダ内の全ファイルを高速に一括削除する方法を紹介します。労力を大幅に減らし、業務効率を向上させましょう。

サンプルコード

VBA

Option Explicit
Sub DeleteFilesInFolder()
    Dim fso As Object
    Dim folderPath As String
    Dim file As Object
    
    ' フォルダパスの指定（ここに削除したいフォルダのパスを入力してください）
    folderPath = "C:\TestFolder"
    
    ' オブジェクトの初期化
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 画面更新停止と警告オフ設定
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' フォルダ内のファイルを削除
    For Each file In fso.GetFolder(folderPath).Files
        file.Delete
    Next file
    
    ' 画面更新と警告の再設定
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

フォルダパスが正しいことを確認し、ファイルやフォルダ名に特殊文字がないか確認してください。