Ik krijg het niet voor elkaar om een zip bestand uit te pakken. Na wat speurwerk kom ik op deze code, maar krijg steeds een foutmelding (Fout91):
Code:
Sub UnzipFile()
Dim objShell As Object
Dim objFolder As Object
Dim objSource As Object
' Pad naar het zip-bestand
Dim zipPath As String
zipPath = "D:\zip.zip"
' Pad naar de doelmap voor het uitpakken
Dim targetPath As String
targetPath = "D:\"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.Namespace(zipPath)
Set objFolder = objShell.Namespace(targetPath)
objFolder.CopyHere objSource.Items
MsgBox "Klaar!", vbInformation
End Sub