相关疑难解决方法(0)

在完整的宏过程中，我正在创建一个Zip文件Folder。该文件夹具有多个子文件夹和文件。使用此代码：

    Dim oApp As Object
    NewZip (s_path & "\" & acc_name & ".zip")
    Set oApp = CreateObject("Shell.Application")
    oApp.Namespace(s_path & "\" & acc_name & ".zip").CopyHere oApp.Namespace(s_path & "\" & acc_name & "\").items

        On Error Resume Next
        Do Until oApp.Namespace(s_path & "\" & acc_name & ".zip").items.Count = _
        oApp.Namespace(s_path & "\" & acc_name & "\").items.Count
        Application.Wait (Now + TimeValue("0:00:01"))
        Loop
        On Error GoTo 0

    Set oApp = Nothing

现在，我需要检查Zip小于20mb，以便可以通过邮件发送它。我发现可以使用以下行完成：

FileLen(path)

现在，如果文件大小超过20mb，我想从该Zip的一个特定子文件夹 …