Dim fso, f, f1, fc, sCmd, oShell, proc

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(".")
Set fc = f.SubFolders

Set oShell = WScript.CreateObject ("WScript.shell")
For Each f1 in fc
sCmd = "c:\0day\wzunzip -o c:\0day\" & f1.name & "\*.zip c:\0day\" & f1.name
oShell.run sCmd, 1, True
Next