Verzeichnisse komprimieren

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Kagurame.

    Verzeichnisse komprimieren

    Hallo zusammen,

    ich habe ein Problem. Ich möchte ein ganzes Verzeichnis archivieren. Um Speicherplatz zu sparen, möchte ich es komprimieren (wie ein Zip-Archiv).
    Da habe ich dieses Snippet gefunden (dotnet-snippets.de/dns/ordner-komprimierung-SID563.aspx)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. .............
    4. Private Const COMPRESSION_FORMAT_NONE As Short = 0
    5. Private Const COMPRESSION_FORMAT_LZNT1 As Short = 2
    7. Private Const FSCTL_SET_COMPRESSION As Integer = 639040
    9. Private Const FILE_SHARE_NONE As Short = 0
    10. Private Const OPEN_EXISTING As Short = 3
    11. Private Const INVALID_HANDLE_VALUE As Short = -1
    12. Private Const GENERIC_READ As Integer = &H80000000
    13. Private Const GENERIC_WRITE As Integer = &H40000000
    14. Private Const FILE_FLAG_BACKUP_SEMANTICS As Integer = &H2000000
    16. Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" _
    17. (ByVal lpFileName As String, _
    18. ByVal dwDesiredAccess As Integer, _
    19. ByVal dwShareMode As Integer, _
    20. ByVal lpSecurityAttributes As IntPtr, _
    21. ByVal dwCreationDisposition As Integer, _
    22. ByVal dwFlagsAndAttributes As Integer, _
    23. ByVal hTemplateFile As IntPtr) As IntPtr
    25. Private Declare Function CloseHandle Lib "kernel32" _
    26. (ByVal hObject As IntPtr) As Boolean
    28. Private Declare Function DeviceIoControl Lib "kernel32" _
    29. (ByVal hDevice As IntPtr, _
    30. ByVal dwIoControlCode As Integer, _
    31. ByRef lpInBuffer As Short, _
    32. ByVal nInBufferSize As Short, _
    33. ByVal lpOutBuffer As Integer, _
    34. ByVal nOutBufferSize As Integer, _
    35. ByRef lpBytesReturned As Integer, _
    36. ByVal lpOverlapped As IntPtr) As Boolean
    38. Private Sub CompressFolder(ByVal fullpath As String)
    39. Dim Files() As FileInfo
    40. Dim Subfolders() As DirectoryInfo
    41. Dim CurrentFolder As DirectoryInfo
    43. SetCompressionState(fullpath)
    44. CurrentFolder = New DirectoryInfo(fullpath)
    46. Try
    47. Files = CurrentFolder.GetFiles()
    49. For Each CurrentFile As FileInfo In Files
    50. With CurrentFile
    51. If .Attributes And FileAttributes.ReadOnly Then
    52. ' Schreibschutzattribut vorübergehend entfernen
    53. .Attributes = .Attributes And Not FileAttributes.ReadOnly
    54. .Refresh()
    56. CompressFile(.FullName)
    58. ' Schreibschutzattribut wieder setzen
    59. .Attributes = .Attributes Or FileAttributes.ReadOnly
    60. .Refresh()
    61. Else
    62. CompressFile(.FullName)
    63. End If
    64. End With
    65. Next
    67. Catch
    68. '
    69. End Try
    71. Try
    72. Subfolders = CurrentFolder.GetDirectories()
    74. For Each Subfolder As DirectoryInfo In Subfolders
    75. fullpath = Subfolder.FullName & "\"
    76. CompressFolder(fullpath)
    77. Next
    79. Catch
    80. '
    81. End Try
    83. End Sub
    85. Private Sub SetCompressionState(ByVal folder As String)
    86. Dim Size As Short = 2
    87. Dim ReturnedBytes As Integer
    88. Dim Result As Boolean
    89. Dim Handle As IntPtr
    91. Handle = CreateFile(folder, _
    92. GENERIC_READ Or GENERIC_WRITE, _
    93. FILE_SHARE_NONE, _
    94. IntPtr.Zero, _
    95. OPEN_EXISTING, _
    96. FILE_FLAG_BACKUP_SEMANTICS, _
    97. IntPtr.Zero)
    99. If Handle.ToInt32 <> INVALID_HANDLE_VALUE Then
    100. Result = DeviceIoControl(Handle, _
    101. FSCTL_SET_COMPRESSION, _
    102. COMPRESSION_FORMAT_LZNT1, _
    103. Size, _
    104. 0, _
    105. 0, _
    106. ReturnedBytes, _
    107. IntPtr.Zero)
    109. CloseHandle(Handle)
    110. End If
    112. End Sub
    114. Private Sub CompressFile(ByVal file As String)
    115. Dim Size As Short = 2
    116. Dim ReturnedBytes As Integer
    117. Dim Result As Boolean
    118. Dim Stream As FileStream
    120. Try
    121. Stream = New FileStream(file, FileMode.Open, _
    122. FileAccess.ReadWrite, FileShare.None)
    124. Result = DeviceIoControl(Stream.Handle, _
    125. FSCTL_SET_COMPRESSION, _
    126. COMPRESSION_FORMAT_LZNT1, _
    127. Size, _
    128. 0, _
    129. 0, _
    130. ReturnedBytes, _
    131. IntPtr.Zero)
    132. Stream.Close()
    134. Catch
    135. If Not Stream Is Nothing Then
    136. Stream.Close()
    137. End If
    138. End Try
    140. End Sub
    142. -------------------------------------------------
    143. Beispiel : CompressFolder("C:\Temp")


    Bei mir zeigt es keine Fehlermeldung an, doch es spuckt auch nichts komprimiertes aus.
    Wird da überhaupt was komprimiert? Und wenn ja, wohin?

    Vielen Dank :D

    Rolandos

    rolandos schrieb:

    Wird da überhaupt was komprimiert? Und wenn ja, wohin?
    Sollen wir jetzt für Dich den von Dir gefundenen Code analysieren und nach Fehlern durchflöhen :?: :thumbdown:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Du kannst ja mal deren Namen bei Google befragen, die MSDN ist auch eine gute Adresse, da solltest Du mal loslegen. :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    also ich kann schomal sagen, dass der Code Crap ist.

    Betrachte einfach mal die Zeilen #46 - #69:

    VB.NET-Quellcode

    1. Try
    2. '...allerlei Code, der nun machen kann, wasserwill, ohne dass je ein Fehler bemerkt werden kann
    3. Catch
    5. End Try
    Wer TryCatchens derart verwendet, gehört eigentlich sicherheits-verwahrt, denner ist eine Gefahr für die Öffentlichkeit ;)

    gugge vlt. TryCatch ist ein heißes Eisen

    ja, genau das ist das Problem, dass du keine Fehler angezeigt bekommst.
    Vermutlich treten nämlich doch welche auf, aber wegen dieser gemeingefährlichen TryCatches bekommst du sie nicht angezeigt.
    Ergo: Du wirst die Fehler niemals beheben können.

    Wie gesagt: vergiss das Snippet, und probier was anneres - vlt. dieses hier: (Un-)Zippen ohne Zusatz-Komponente

    Mach als Minimallösung bei Catch eine MessageBox rein, dass Du wenigstens gesagt bekommst, dass was geknallt hat. Und dann sieh Dir die Exception genau an.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Allgemeiner Hinweiß:
    Während dem Debuggenam besten folgendes machen:

    VS: Debug => Exceptions => Bei Thrown überall ein haken machen, mindestens aber bei Common Language Runtime Exceptions
    Sorgt dafür, dass beim Debuggen Try Catch ignoriert wird und die Exceptions trotzdem rausgehaun werden, dann brauchste nichmal gucken ob irgendein Baka die Exceptions alle auffrisst.

Facebook
Telefonspende