Function Unzip(strFileName,strFolderName)

Dim objshell

Dim objfso

' Creating a Shell.Application 
Set objshell = CreateObject("Shell.Application")


' Creating a FileSystemObject to check if the folder exists and create a folder if necessary

Set objfso = CreateObject("Scripting.FileSystemObject")


' Creating a folder to receive files if it doesn't already exist

If Not objfso.FolderExists(strFolderName) Then objfso.CreateFolder strFolderName


' Using CopyHere to extract files

objshell.NameSpace(strFolderName).CopyHere objshell.NameSpace(strFileName).Items

Set objfso = Nothing

Set objshell = Nothing

End Function

'Calling unzip function
Unzip "F:\JSE\DDAP.SPRD.JCH.E.zip","F:\JSE\DDAP.SPRD.JCH.E"