vba，如何用特殊字符压缩文件？

当压缩文件夹中的所有文件时，我得到一个错误

'''''Create empty Zip File NewZip (FileNameZip) Set oApp = CreateObject("Shell.Application") '''''Copy the files to the compressed folder oApp.Namespace(FileNameZip).CopyHere oApp.Namespace(FolderName).items ''error here 

错误：c：… \Jørgen.doc无法压缩，因为它包含不能位于压缩文件夹（例如ø）中的字符。 你应该重命名这个文件或目录。

但是，如果我导航到该文件，并手动将其复制到zip文件夹，它没有任何问题。 有没有办法在我的vba代码中绕过这个错误

Answer 1

使用dotnetzip。 它支持国际（unicode）文件名。

在这个问题的答案中看到这里 。