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

要使用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 = NothingEnd Sub

要使用该代码，只需调用DeleteFilesInFolder并传入要删除文件的文件夹路径：

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

注意：该代码将只删除文件夹下的文件，而不会删除文件夹本身。如果需要删除文件夹本身，可以使用FileSystemObject的DeleteFolder方法。