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

Question

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

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

遇到的现象和发生背景，请写出第一个错误信息

用代码块功能插入代码，请勿粘贴截图。 不用代码块回答率下降 50%

运行结果及详细报错内容

我的解答思路和尝试过的方法，不写自己思路的，回答率下降 60%

我想要达到的结果，如果你需要快速回答，请尝试 “付费悬赏”

Answer 1

“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