VBA：RmDir pathname运行时出错：运行时错误“75”，路径或文件访问时错误。

'原因是Kill过程文件还没有完全删除时，已经开始执行RmDir，所以出错。
'修改如下：
Dim graPath As String
graPath = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "_graphics"
'判断目录是否存在，存在就删除目录中的所有文件及目录本身
If Dir(graPath, vbDirectory) <> "" Then
If Dir(graPath & "\*.*") <> "" Then
Kill graPath & "\*.*" '没有子目录
End If
End If
If Dir(graPath, vbDirectory) <> "" Then
If Dir(graPath & "\*.*") = "" Then
RmDir graPath '文件删除完成后，再删除文件夹
End If
End If

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/eyv32jfvy.html