vba怎么删除文件夹下所有文件-开发者知识库平台

vba怎么删除文件夹下所有文件

vba

1172

2023/11/12 23:17:34

栏目: 编程语言

要使用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方法。

辰迅云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>

vba怎么删除文件夹下所有文件

最新知识库

相关标签