7Zip创建空Zip文件

Question

我编写了这个并且压缩逻辑正在工作但是当生成zip文件时，即使源位置中有文件，它也没有文件。

oFile是从源位置引用的文件，而sDirectoryDestPath是zip文件的目录位置。您认为为什么它不包含zip文件的原因是什么？

另外，我不想将源的目录部分附加到oFile，因为它正在复制整个文件夹结构。我只需要将文件放在zip目标位置。

Sub archiveFile(oFile)
  Dim wshshell, Command, zipFileName

  Set wshshell = CreateObject("wscript.shell") 

  WScript.Echo oFile.name

  If bArchive Then
      zipFileName = Year(oFile.DateLastModified) & Right("0" & Month(oFile.DateLastModified),2) & ".zip"

      Command = """D:\7ZIP\7za.exe"" a " & sDirectoryDestPath & "\" & zipFileName & " " & oFile.Name

      call wshshell.run(Command,0,true) 
  End If
End Sub