运行时错误“70”权限在 VB6 中被拒绝

Question

我正在使用VB6。我创建的工具提取了几个 zip 文件并将它们解压缩到我在本地创建的文件夹中。在我代码的清理部分，我使用此代码删除了该文件夹

If (f.FolderExists(path + "Extracted Files") = True) Then
     f.DeleteFolder (path + "Extracted Files")
End If    

当我运行此代码时，我在 f.DeleteFolder(path + 'Extracted Files') 行中收到错误 Run Time Error '70' 和 Permission Denied。

我哪里错了？还是我需要创建具有不同权限的文件夹？

Answer 1

也许一个或多个文件是只读的？使用可选的 force 参数来强制删除：

f.DeleteFolder (path + "Extracted Files"), True