Thema Datum  Von Nutzer Rating
Antwort
23.11.2023 12:33:21 Andreas
Solved
Blau Datei zippen
23.11.2023 16:08:54 Der Steuerfuzzi
Solved
23.11.2023 16:53:50 Der Steuerfuzzi
Solved
24.11.2023 10:47:27 Gast28734
Solved

Ansicht des Beitrags:
Von:
Der Steuerfuzzi
Datum:
23.11.2023 16:08:54
Views:
205
Rating: Antwort:
 Nein
Thema:
Datei zippen

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

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.11.2023 12:33:21 Andreas
Solved
Blau Datei zippen
23.11.2023 16:08:54 Der Steuerfuzzi
Solved
23.11.2023 16:53:50 Der Steuerfuzzi
Solved
24.11.2023 10:47:27 Gast28734
Solved