要使用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方法。
提供PHP及ThinkPHP框架的定制开发、代码优化，PHP修改、ThinkPHP修改。
版权声明：除特别声明外，本站所有文章皆是本站原创，转载请以超链接形式注明出处！
