Place the following in a file with extension  .vbs


option explicit

dim s_path
dim d_path
dim sFile

s_path = "c:\test\Powershell_zip\zip"
d_path = "c:\test\Powershell_zip\unzip"
sFile="test1.txt.zip"

dim fso
set fso = CreateObject("Scripting.FileSystemObject")

dim oShell
set oShell = CreateObject("Shell.Application")

dim FileList
set FileList = oShell.NameSpace(s_path & "\" & sFile).items
oShell.NameSpace(d_path).CopyHere(FileList)

set oShell = nothing
set fso = nothing

call msgbox ("successfull")