HardCat 2022-07-07 16:18 采纳率: 66.7%
浏览 160
已结题

VBA 删除文件夹下所有文件

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

遍历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

  • 写回答

1条回答 默认 最新

  • 请叫我问哥 Python领域新星创作者 2022-07-07 16:39
    关注

    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

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 7月22日
  • 已采纳回答 7月14日
  • 创建了问题 7月7日

悬赏问题

  • ¥15 #Qt Transform setTransform()在鼠标拖动移动视角是一致在原地不动,无法变换视角(细微观察似乎视图有在原地抖动),无法变换视角(细微观察似乎视图有在原地抖动)
  • ¥50 如何利用无人机拍摄的数码照片测量鸟卵的长短径
  • ¥100 github贡献者给与奖励
  • ¥15 使用DS18B20+ESP8266获取温度数据返回-127.00
  • ¥15 odbc代码新增sqlserver数据源
  • ¥15 MATLAB代码求涡量
  • ¥15 求一个USB指纹识别的驱动
  • ¥15 wps中工作表与工作表之间怎么汇总信息?
  • ¥50 请教Windows server 2012 R2的DCOM配置问题
  • ¥15 adasis v3中LaneConnectivity