使用vbs解压缩多个zip文件时替换if文件

Question

我有一个VBScript，递归执行并将文件夹中的多个zip文件解压缩到另一个目录中。我想添加另一个有一个选项来替换重复的现有文件。

以下是VBS

Set objArgs = WScript.Arguments

ZipFile = objArgs(0)

ExtractTo = objArgs(1)

'If the extraction location does not exist create it.
Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(ExtractTo) Then
   fso.CreateFolder(ExtractTo)
End If

'Extract the contants of the zip file.
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
Set fso = Nothing
Dim objShell
Set objShell = Wscript.CreateObject("WScript.Shell")


' Using Set is mandatory
Set objShell = Nothing

下面是我的批处理脚本，它以递归方式调用此vbs。

for %%A in ("%2\*.zip") do "%1" "%%A" "%3"