Function Unzip(strFileName,strFolderName) Dim objshell Dim objfso ' Create Shell.Application so we can use the CopyHere method Set objshell = CreateObject("Shell.Application") ' Create FileSystemObject so we can use FolderExists and CreateFolder if necessary Set objfso = CreateObject("Scripting.FileSystemObject") ' Create folder to receive files if it doesn' t already exist If Not objfso.FolderExists(strFolderName) Then objfso.CreateFolder strFolderName ' Use CopyHere to extract files objshell.NameSpace(strFolderName).CopyHere objshell.NameSpace(strFileName).Items Set objfso = Nothing Set objshell = Nothing End Function 'Put your own zip file name and folder name inside the quotes in the next line Unzip "C:\install-modperso\minecraft.zip","C:\install-modperso\minecraft"