VBA复制文件到.zip dificulty

我试图将大约20-30个excel文件打包成一个zip文件，然后在一个进程完成后通过电子邮件发送出去。 我能够创build.zip文件，并将文件从一个目录复制到另一个目录。 我无法做到的是将文件复制到.zip文件中。 这里是我有的代码：

---

zipFile = "C:\testZip.zip" zipPath = "C:\testZipFolder\" NewZip (zipFile) Set fs = CreateObject("scripting.filesystemobject") file = Dir(zipPath) Set zipFolder = fs.getfolder(zipPath) While (file <> "") If InStr(file, ".xlsx") > 0 Then I = I + 1 Set f = fs.getfile("C:\" & file) f.Copy (zipPath) Debug.Print Err.Number Debug.Print Err.Description 

NewZip是一个创build.zip文件的方法。 我可以打开.zip并手动将文件移动到它。 当我运行上面的代码时，我得到错误438：对象不支持此属性或方法。 如果我将目标path更改为其他文件夹，则会复制该文件。 任何帮助，将不胜感激。