VBA 自动删除指定文件夹下的文件

问题遇到的现象和发生背景

想要删除指定文件夹下的文件,怎样用VBA 代码自动删除?

遇到的现象和发生背景,请写出第一个错误信息
用代码块功能插入代码,请勿粘贴截图。 不用代码块回答率下降 50%
运行结果及详细报错内容
我的解答思路和尝试过的方法,不写自己思路的,回答率下降 60%
我想要达到的结果,如果你需要快速回答,请尝试 “付费悬赏”

“Devil组”引证GPT后的撰写:
用VBA中的FileSystemObject对象来删除指定文件夹下的文件。具体步骤如下:

  • 在VBA中添加对Microsoft Scripting Runtime的引用,方法如下:
    a. 打开VBA编辑器。
    b. 在菜单栏中选择“工具” -> “引用”。
    c. 在弹出的对话框中找到“Microsoft Scripting Runtime”并勾选它。
    d. 点击“确定”按钮保存修改。

在代码中创建FileSystemObject对象。

Dim fso As New FileSystemObject


用fso对象的GetFolder方法获取指定文件夹对象。

Dim folder As Folder
Set folder = fso.GetFolder("C:\test")


遍历文件夹中的所有文件,并使用fso对象的DeleteFile方法逐个删除。

Dim file As File
For Each file In folder.Files
    fso.DeleteFile file.Path
Next file