Unzip files to a folder udf

[YasserKhalil]

Hello everyone
I have this code that is supposed to unzip files


Sub Test_UnZipFile()
Dim strPath As String


strPath = ThisWorkbook.Path & "\TestFolder\"
If Len(Dir(strPath, vbDirectory)) = 0 Then MkDir strPath

Call UnZipFile(ThisWorkbook.Path & "\TestFolderZipped.zip", strPath)
MsgBox "Done...", 64
End Sub


Sub UnZipFile(zippedFileFullName As Variant, unzipToPath As Variant)
Dim shellApp As Object


Set shellApp = CreateObject("Shell.Application")
shellApp.Namespace(unzipToPath).CopyHere shellApp.Namespace(zippedFileFullName).items
End Sub


But I encountered an error Runtime error '91'

Any help how to fix this UDF?

[mdmackillop]

Hi Yasser

Dim strPath As Variant

[YasserKhalil]

Thank you very much MD
That's awesome but why As Variant while strPath line considered as String??!

[mdmackillop]

The second sub needs a Variant (Ron de Bruin) and you are passing a String