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