Miért nem tudom becsomagolni a fájlt?

Nem értem a probléma lényegét . Már vagy egy hónapja megakadtam a programom fejlesztésével mert nem tudom hogy csomagoljak be egy fájlt Visual basic-el .A Nagyon örülnék ha valaki tudna nekem segíteni . Ezt a kódot a [link] oldalról szedtem de sajnos hibaüzenettel leálít . Az Add reference módosítást is végrehajtom de semmi .

Imports shell32

...

...

...

Dim startBuffer() As Byte = {80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

FileIO.FileSystem.WriteAllBytes("C:\Users\user\Desktop\empty.zip", startBuffer, False)

Dim sc As New Shell32.Shell()

Dim input As Shell32.Folder = sc.NameSpace("C:\Users\user\Desktop\Document.exe")

Dim output As Shell32.Folder = sc.NameSpace("C:\Users\user\Desktop\empty.zip")

output.CopyHere(input.Items, 4)

A hibaüzenet :Error HRESULT E_FAIL has been returned from a call to a COM component.

Kérem akinek csak ötlete is van írja le .A válaszokat előre is nagyon köszönöm .