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

avatar
作者
筋斗云
阅读量:7

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

广告一刻

为您即时展示最新活动产品广告消息,让您随时掌握产品活动新动态!