VB6中运行时错误'70'权限被拒绝

Question

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

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

当我运行此代码时，我在行f.DeleteFolder（路径+'提取的文件'）中收到错误运行时错误'70'和权限被拒绝。

我哪里错了？或者我是否需要使用不同的权限创建文件夹？

Answer 1

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

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

Answer 2

您使用的是用其他语言编写的库来提取文件吗？验证任何指针是否已打开，可能是某个文件已打开，祝你好运！

Answer 3

1. 通过在开始搜索或命令提示符下键入regedit来运行注册表编辑器。

2. 在注册表编辑器中，导航到以下注册表项：

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

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