Komprimieren in .zip file geht nicht

gfcwfzkm · 19. August 2011, 19:46

Hi,

Ich habe ein Problem, und zwar will ich etwas in eine .zip file umwandeln, aber es kommt immer einen Fehler.
Code:
lblSoruce.Text = C:\Test

Sub CreateEmptyZip()
Try
Dim strZIPHeader As String
lblprogress.Text = "Datei wird komprimiert..."
strZIPHeader = Chr(80) & Chr(75) & Chr(5) & Chr(6) & String.Format(18, 0)
CreateObject("Scripting.FileSystemObject").CreateTextFile(lblSource.Text).Write(strZIPHeader)
lblprogress.Text = "Datei wird kopiert..."
th.RunWorkerAsync()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Fehler im Anhang

Kann mir jemand weiterhelfen?

mfg & thx

gfcwfzkm

jvbsl · 19. August 2011, 19:56

Als Administrator ausführen, dann sollte es gehen...

gfcwfzkm · 19. August 2011, 20:13

Funktioniert nicht, gleicher Fehler...

margarete · 19. August 2011, 20:56

Ein paar Fragen:
Was genau soll der obige Code bezwecken?
Wo schreibst du hin (bzw. was liest du aus?)

SystemUnknow · 19. August 2011, 21:02

..zu thema zip packen/entpacken gibts zig threads und post...einfach Sufu benutzen.

gfcwfzkm · 19. August 2011, 21:34

möchte dies aber über die Shell32.dll machen.
Und so ein tut habe ich nicht gefunden, nur wie man es über 7zip macht.

mfg

SystemUnknow · 19. August 2011, 21:43

gfcwfzkm · 19. August 2011, 21:57