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