vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: ZIP-Datei erstellen, die leere Ordner enthält 
Autor: -Franky-
Datum: 14.04.21 21:52

Hi

Du kannst Dir ja mal dieses Projekt hier anschauen: https://github.com/wqweto/ZipArchive
Das ganze läuft unter einer MIT-Lizenz. Wenn Du diese ZIP auspackst, findest Du einen Ordner ZipArchive-master\test\basic mit einem Testprojekt. Für Dich dürfte der Command5 von Interesse sein. Pass den Code in diesem Button entsprechend an.
Private Sub Command5_Click()
 
    Dim dblTimer        As Double
    Dim bResult         As Boolean
    Dim sLastError      As String
'    Dim baOutput()      As Byte
'    Dim oBuffer         As cBufferStream
 
    dblTimer = Timer
    Set m_oZip = New cZipArchive
    m_bCancel = False
    With m_oZip
        .AddFromFolder "C:\DeinOrdner\", Recursive:=True, _
          IncludeEmptyFolders:=True
'        ReDim baOutput(0 To 100000000) As Byte
'        Set oBuffer = New cBufferStream
'        oBuffer.Init VarPtr(baOutput(0)), UBound(baOutput) + 1
'        bResult = .CompressArchive(oBuffer)
        bResult = .CompressArchive("C:\test.zip", Level:=9)
        'Debug.Assert FileLen("C:\test.zip") = oBuffer.Size
        sLastError = .LastError
    End With
    Set m_oZip = Nothing
    labProgress.Caption = IIf(bResult, "Done. ", sLastError & ". ") & Format( _
      Timer - dblTimer, "0.000") & " elapsed"
 
End Sub
Damit kannst einen Ordner, der auch leere Ordner enthält (IncludeEmptyFolders) in eine ZIP packen. Leere Ordner gehen so auch im Root.

Mit freundlichen Grüßen
-Franky-

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ZIP-Datei erstellen, die leere Ordner enthält138DustyD.10.04.21 20:26
Re: ZIP-Datei erstellen, die leere Ordner enthält67-Franky-11.04.21 18:27
Re: ZIP-Datei erstellen, die leere Ordner enthält66DustyD.11.04.21 22:02
Re: ZIP-Datei erstellen, die leere Ordner enthält60-Franky-11.04.21 22:52
Re: ZIP-Datei erstellen, die leere Ordner enthält51DustyD.14.04.21 18:15
Re: ZIP-Datei erstellen, die leere Ordner enthält52-Franky-14.04.21 21:52
Re: ZIP-Datei erstellen, die leere Ordner enthält46DustyD.18.04.21 20:17

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel