Excel VBA Unzip代码不适用于嵌套的压缩文件夹

Question

我正在使用下面显示的代码来解压缩压缩的文件夹。该代码适用于带有子文件夹和文件的简单压缩文件夹。但是，当输入的压缩文件夹中包含压缩文件夹时，该代码将无法正常工作。它要求输入密码（未设置密码时），然后完全不解压缩文件。请帮忙。 这是我的代码：

Sub UnzipAFile(zippedFileFullName As Variant, unzipToPath As Variant)

Dim ShellApp As Object

'Copy the files & folders from the zip into a folder
Set ShellApp = CreateObject("Shell.Application")
ShellApp.Namespace(unzipToPath).CopyHere 
ShellApp.Namespace(zippedFileFullName).Items
Kill zippedFileFullName
End Sub