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

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

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

当我运行此代码时，在f.DeleteFolderpath+“Extracted Files”行中得到一个错误运行时错误“70”，并且权限被拒绝

---

我哪里做错了？或者我需要使用其他权限创建文件夹吗？

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

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

---

您正在使用另一种语言编写的库来提取文件？验证任何指针是否已打开，很可能某个文件已打开，祝您好运

通过在开始搜索或命令提示符下键入regedit来运行注册表编辑器。 在注册表编辑器中，导航到以下注册表项：

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System 

在右窗格中找到以下DWORD注册表子项：EnableLUA 双击EnableLUA 在值提示下，将值设置为0。 退出注册表编辑器。 重新启动计算机。 要再次启用UAC，请将EnableLUA的值设置为1。