Fname-"file need to unzip"
Dest_path-"path where fles need to be Stored after unzip"
Set oApp=CreateObject ("shell.application")
For each filename in oApp(Fname).items
oApp.namespace(Dest_path).copyhere
Next
The above code is working fine for normal zip files..