Here i just do these
<pre lang="vb">
Dim objShell
set objShell = CreateObject("Shell.Application")
objShell.NameSpace(extractTo).CopyHere objShell.NameSpace(extractFrom).Items
</pre>
instead of these
<pre lang="vb">
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(zipFilePath).items //error
objShell.NameSpace(extractTo).CopyHere(FilesInZip)
</pre>
and add "\" in extractTo path.
Thank you.