如何使用VBscript解压缩多个zip文件夹？

Question

我需要一个VB脚本来解压缩多个不同的zip文件夹。我有这个脚本 - 但它不起作用。

Sub Unzip()  
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In fso.GetFolder("C:\Dal\").Files
  If LCase(fso.GetExtensionName(f)) = "zip" Then
    Unzip f.path, "C:\Dal"
  End If
Next
End Sub

Answer 1

NameSpace方法不支持通配符。尝试这样的事情：

Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In fso.GetFolder("C:\").Files
  If LCase(fso.GetExtensionName(f)) = "zip" And Left(f.Name, 11) = "DailySearch" Then
    Unzip f.Path, "C:\DailySearch"
  End If
Next