【VBA：Tips】フォルダの削除

VBAでフォルダを削除する方法として、FileSystemObjectを使用する方法があります。

FileSystemObjectは、ファイルシステムオブジェクトを操作するための標準ライブラリであり、ファイルやフォルダの作成や削除、コピー、移動などを簡単に行うことができます。

ここでは、FileSystemObjectを使ってVBAでフォルダを削除する方法について説明します。

【サンプルソース】フォルダの削除

以下は、FileSystemObjectを使用してVBAでフォルダを削除するサンプルコードです。

Sub DeleteFolder()
    Dim FSO As Object
    Dim FolderPath As String
    
    ' FileSystemObjectを生成
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' フォルダのパスを指定
    FolderPath = "D:\200_work\100_sample\新しいフォルダ2"
    
    ' フォルダが存在する場合は削除
    If FSO.FolderExists(FolderPath) Then
        FSO.DeleteFolder (FolderPath)
        MsgBox "フォルダを削除しました。"
    Else
        MsgBox "指定されたフォルダは存在しません。"
    End If
    
    ' FileSystemObjectを解放
    Set FSO = Nothing
End Sub

Sub DeleteFolder()

Dim FSO As Object

Dim FolderPath As String

' FileSystemObjectを生成

Set FSO = CreateObject("Scripting.FileSystemObject")

' フォルダのパスを指定

FolderPath = "D:\200_work\100_sample\新しいフォルダ2"

' フォルダが存在する場合は削除

If FSO.FolderExists(FolderPath) Then

FSO.DeleteFolder (FolderPath)

MsgBox "フォルダを削除しました。"

Else

MsgBox "指定されたフォルダは存在しません。"

End If

' FileSystemObjectを解放

Set FSO = Nothing

End Sub

上記のサンプルコードでは、まずFileSystemObjectを生成し、フォルダのパスを指定します。

次に、FolderExistsメソッドを使用して、フォルダが存在するかどうかを判断します。

フォルダが存在する場合は、DeleteFolderメソッドを使用してフォルダを削除します。

フォルダにサブフォルダやファイルが存在する場合、サブフォルダやファイルも削除されます。

フォルダが削除されたら、メッセージボックスで「フォルダを削除しました。」と表示されます。

フォルダが存在しない場合は、メッセージボックスで「指定されたフォルダは存在しません。」と表示されます。

【サンプルソース】ワイルドカードを利用した複数フォルダの削除

以下は、ワイルドカード（*）を利用して複数フォルダを削除するサンプルコードです。

このコードでは、指定されたパスにマッチするすべてのフォルダを削除します。

Sub DeleteMatchingFolders()
    Dim fso As Object
    Dim objFolder As Object
    Dim strFolder As String
    Dim strPattern As String
    Dim strFolderName As String
    
    ' ファイルシステムオブジェクトを作成する
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 削除するフォルダのパスとパターンを指定する
    strFolder = "D:\200_work\100_sample\新しいフォルダ2\"
    strPattern = "Test*"
    
    ' 指定されたパスにマッチするすべてのフォルダを削除する
    For Each objFolder In fso.GetFolder(strFolder).SubFolders
    
        strFolderName = objFolder.Name
        
        If strFolderName Like strPattern Then
            fso.DeleteFolder strFolder & strFolderName, True
        End If
        
    Next
    
    MsgBox "END"
    
    ' ファイルシステムオブジェクトを解放する
    Set fso = Nothing
    
End Sub