method 'namespace' of object 'ishelldispatch4' failed Error in vbscript

See more:

VB

Hi
I am trying to unzip all the files in a folder, but I am getting the error method 'namespace' of object 'ishelldispatch4' failed. Please help me to get this resolved.

Code below:

Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objSubFolder = objFSO.GetFolder(pathToZipFile)
        Set objFiles = objSubFolder.Files

        For Each objFile In objFiles
            strfile = objFile.Path
            Set sa = CreateObject("Shell.Application")
            Set filesInzip = sa.Namespace(strfile).Items
            sa.Namespace(pathToZipFile).CopyHere (filesInzip)
        Next