将所选文件复制到压缩文件夹：VBA中出现“文件未找到或没有读取权限”错误

Question

我有一个代码可以压缩所有选定的文件（归功于RonDeBruin的代码）虽然我修改了它的一些部分。我的问题是每次运行代码时都会弹出如下错误：

这是我的代码：

cell.textLabel.text = [package nameForLanguageCode:@"en"];

但是当我调试它时，它不会弹出任何错误。代码有问题吗？或者我应该对文件夹或程序设置进行更改？请帮帮我:(

Answer 1

如果它在调试时有效，但在不调试时出错，则代码的异步性可能存在问题。当VB执行下一个语句时，似乎调用（start）和外部进程可能无法完成。所以你正在使用的图书馆（你所指的Ron de Bruin，我不在这里）可能包含一个等待过程准备就绪的功能。

我还注意到：

For Each Fold In ws.Range("E3:E" & lastrow)
    Set oApp = CreateObject("Shell.Application")

您似乎在循环的每次迭代中创建一个新shell。在循环足够之前不会创建一次吗？