VBA 删除文件夹下所有文件

Question

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

遍历excel中一列的路径，并删除路径下所有文件。但是遇到找不到路径的报错，在即使窗口显示路径都是正确的。

问题相关代码，请勿粘贴截图

Sub Button3_Click()
Dim result_folder, Ex_File, kill_path As String
Dim i, j As Integer
j = Sheets("Temp_source").[D65535].End(xlUp).Row

For i = 2 To j
result_folder = Sheets("Temp_source").Cells(i, 4) & ""
Ex_File = Dir(result_folder)
Do While Ex_File <> ""
kill_path = result_folder & Ex_File
Kill kill_path
Ex_File = Dir()
Loop
Next
End Sub

运行结果及报错内容

Run-time error 53: File not found

Answer 1

Ex_File = Dir(result_folder)
我记得第一个找到的应该是“.”或者“..”这种表示上级目录的值，所以一般都会在循环里再加个判断，你试试：
Do While Ex_File <> ""
If Ex_File <> "." And Ex_File <> ".." Then
kill_path = result_folder & Ex_File
Kill kill_path
End If
Ex_File = Dir()
Loop