如何使用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