|
Hallo,
bei Dir fehlt wohl code, da du zwar den Kommentar 'Create empty Zip File im Programm stehen hast, aber hier keine Datei erstellst:
Open fileNameZIP For Output As #1
Close #1
Du musst tatsächlich eine leere Zip-Datei erstellen, also den Zip-Header (Magic Bytes) in die Datei schreiben. Und da es nur eine Datei ist, reicht es diese zu kopieren (ohne Namespace o.Ä.):
Dim ShellApp As Object
Dim FN As Variant
Dim fileNAmeZIP As String, fileNameXML As String
FN = FreeFile
Open fileNAmeZIP For Binary Access Write As #FN
Put #FN, , CByte(&H50)
Put #FN, , CByte(&H4B)
Put #FN, , CByte(&H5)
Put #FN, , CByte(&H6)
Put #FN, , String(18, 0)
Close #FN
Set ShellApp = CreateObject("Shell.Application")
'Copy the files to the compressed folder
ShellApp.Namespace((fileNAmeZIP)).CopyHere (fileNameXML)
Gruß
Michael
|