vbaでフォルダ内のすべてのファイルを削除する方法

2年 ago
結衣, 春花
1 minute

VBA を使用してフォルダ内のすべてのファイルを削除するには、FileSystemObject オブジェクトの DeleteFile メソッドを使用します。以下にサンプル コードを示します。

Sub DeleteFilesInFolder(folderPath As String)
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set folder = fso.GetFolder(folderPath)
    
    ' 遍历文件夹下的所有文件
    For Each file In folder.Files
        ' 删除文件
        fso.DeleteFile file.Path
    Next file
    
    ' 释放对象
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

このコードを使用するには、 DeleteFilesInFolder を呼び出して、削除するファイルの格納されたフォルダーのパスを渡すだけです。

Sub Test()
    DeleteFilesInFolder "C:\TestFolder"
End Sub

注意：そのコードはファイルのあるフォルダのみ削除し、フォルダ自体は削除しません。フォルダ自体を削除する必要がある場合は、FileSystemObjectのDeleteFolderメソッドが使用できます。

bannerAds