【VBAリファレンス】VBAサンプル集フォルダ（サブフォルダも全て）削除する、Optionでファイルのみ削除

スポンサーリンク

フォルダ内の全削除と再帰的処理：FSOを用いた高度なファイル管理術

業務効率化の現場において、ファイルシステム操作は避けて通れないタスクです。特に「特定のフォルダ以下をすべて削除したい」「ファイルだけを削除し、フォルダ構造は維持したい」といった要件は、ログファイルの定期的な消去や、プロジェクト終了時のクリーンアップ作業で頻繁に求められます。

VBAでこれらを実現する際、標準のKill命令やRmDir命令だけでは不十分です。サブフォルダを含めた再帰的な処理や、柔軟な条件分岐を実現するためには、FileSystemObject（FSO）の習得が不可欠です。本稿では、プロフェッショナルな視点から、堅牢で再利用性の高いファイル管理ロジックを解説します。

FileSystemObjectの基本と参照設定

VBAで複雑なファイル操作を行うための最強の武器が「Microsoft Scripting Runtime」ライブラリです。これを利用することで、ファイルやフォルダをオブジェクトとして扱い、直感的なコード記述が可能になります。

実装に際しては、VBAエディタの「ツール」メニューから「参照設定」を開き、「Microsoft Scripting Runtime」にチェックを入れてください。これにより、IntelliSense（入力補完）が効くようになり、開発効率とコードの安全性が劇的に向上します。

再帰処理によるフォルダ削除のメカニズム

フォルダを削除する際、中身が空でない場合はエラーが発生します。したがって、サブフォルダを削除するには「深い階層から順に削除する」というアルゴリズムが必要です。これを実現するのが「再帰関数」です。

再帰関数とは、関数の中で自分自身を呼び出す手法です。フォルダAの中にフォルダBがある場合、「フォルダBの中身を空にしてからBを削除し、その後フォルダAを削除する」という処理を、階層の深さに関わらず自動的に繰り返します。

サンプルコード：フォルダとファイルを完全に削除するプロシージャ

以下のコードは、指定したパス以下のすべてのファイルとサブフォルダを再帰的に削除するプロシージャです。


Public Sub DeleteFolderRecursively(ByVal folderPath As String)
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If Not fso.FolderExists(folderPath) Then
        MsgBox "指定されたフォルダが存在しません。", vbExclamation
        Exit Sub
    End If
    
    ' 警告を表示し、誤操作を防止
    If MsgBox("以下のフォルダを完全に削除しますか？" & vbCrLf & folderPath, vbYesNo + vbCritical) = vbNo Then
        Exit Sub
    End If
    
    ' DeleteFolderメソッドはサブフォルダも一括で削除可能
    ' Trueを指定すると読み取り専用ファイルも強制的に削除
    fso.DeleteFolder folderPath, True
    
    MsgBox "削除が完了しました。", vbInformation
End Sub

サンプルコード：Optionでファイルのみを削除する高度な実装

次に、フォルダ構成は残したまま、内部のファイルのみを削除する実装です。ここでは「再帰的にファイルを探し出し、削除する」というロジックを組み込みます。


Public Sub ClearFolderContents(ByVal targetPath As String, Optional ByVal includeSubFolders As Boolean = True)
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If Not fso.FolderExists(targetPath) Then Exit Sub
    
    Dim folder As Object
    Set folder = fso.GetFolder(targetPath)
    
    ' ファイルの削除
    Dim file As Object
    For Each file In folder.Files
        file.Delete True
    Next file
    
    ' サブフォルダの処理
    If includeSubFolders Then
        Dim subFolder As Object
        For Each subFolder In folder.SubFolders
            ' 再帰呼び出し
            ClearFolderContents subFolder.Path, True
            ' ファイルを削除した後にフォルダ自体も削除したい場合はここでRmDir等を使用
            ' 今回は「ファイルのみ削除」のためフォルダは残す
        Next subFolder
    End If
End Sub

実務におけるエラーハンドリングと注意点

プロフェッショナルな現場では、コードが動くこと以上に「止まらないこと」「誤操作を防ぐこと」が重要視されます。以下のポイントを実装に組み込んでください。

1. ファイルのロック状態を確認する：
他のユーザーがファイルを開いている場合、VBAでの削除は失敗します。削除前に「On Error Resume Next」を適切に使用し、削除失敗時にエラーログをテキストファイルに出力する仕組みを導入しましょう。

2. 読み取り専用属性の解除：
システムファイルや古いバックアップファイルには「読み取り専用」属性が付与されていることがあります。Deleteメソッドの引数に「True」を渡すことで強制削除が可能ですが、権限不足によるエラー（Run-time error 70）には注意が必要です。

3. パス指定の正規化：
ユーザー入力によるパス指定は、末尾の「\」の有無が不安定です。FSOの「BuildPath」メソッドを使用するか、文字列操作で末尾の「\」を統一する処理を挟むことで、パス記述ミスによるバグを未然に防げます。

4. ログの記録：
大量のファイルを削除する場合、何が削除されたのか不明な状態はリスクです。「Debug.Print」ではなく、専用のログファイルに削除時刻とファイル名を書き出すロジックを追加することを強く推奨します。

プロフェッショナルとしての設計思想

フォルダ削除処理は、一度実行すると二度と元には戻せません。VBAによる自動化を行う際は、必ず「ドライラン（空実行）」モードを実装してください。

例えば、削除対象のパスをイミディエイトウィンドウに出力するだけで、実際に削除は行わないモードを定数や引数で切り替えられるようにしておきます。テスト環境で意図したパスが正しく抽出されていることを確認してから、本番稼働させるのがエンジニアとしての作法です。

また、削除対象がネットワークドライブ上のフォルダである場合、通信遅延や接続断が発生するリスクがあります。大量のファイルを一度に処理するのではなく、一定数ごとに「DoEvents」を挟むことで、Excelがフリーズしたように見える現象を防ぎ、OSへの負荷を分散させることができます。

まとめ

VBAを用いたファイルシステム操作は、FileSystemObjectを使いこなすことで、非常に強力かつ柔軟なツールへと昇華します。再帰処理の理解は、フォルダ操作だけでなく、ファイル検索やデータ集計など、あらゆるVBA開発において応用が利く重要なスキルです。

今回紹介した「フォルダごと削除」と「ファイルのみ削除（構造維持）」のロジックは、そのまま業務の自動化ツールとして利用可能です。コードをコピー＆ペーストするだけでなく、なぜ再帰が必要なのか、なぜエラーハンドリングが重要なのかを理解し、自身の環境に合わせてカスタマイズしてください。

堅牢なコードは、あなたの業務時間を劇的に短縮し、ヒューマンエラーを排除する最強のパートナーとなります。ぜひ、この技術を習得し、より高度な自動化の世界へ足を踏み入れてください。

スポンサーリンク
タイトルとURLをコピーしました