Ordner und Dateien Packen

Schamash · 20. Dezember 2013, 11:55

Hallo zusammen,

Ich versuche nun schon seit einiger Zeit einen Ordner mit Dateien in einer (zip)Datei zu sichern.
Leider funktionieren bei mir die Beispiele der msdn nicht.
Also weder gzipstream noch zipFile

MSDN-GZIPSTREAM

im Beispiel gzipstream teilt mir mein Compiler mit dass, copyto kein member von Filestram und gzipstream ist.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Imports System.IO.Compression
Module Module1
Sub Main()
Dim directoryPath As String = "c:\users\public\reports"
Dim directorySelected As DirectoryInfo = New DirectoryInfo(directoryPath)
For Each fileToCompress As FileInfo In directorySelected.GetFiles()
Compress(fileToCompress)
Next
For Each fileToDecompress As FileInfo In directorySelected.GetFiles("*.gz")
Decompress(fileToDecompress)
Next
End Sub
Private Sub Compress(ByVal fileToCompress As FileInfo)
Using originalFileStream As FileStream = fileToCompress.OpenRead()
If (File.GetAttributes(fileToCompress.FullName) And FileAttributes.Hidden) <> FileAttributes.Hidden And fileToCompress.Extension <> ".gz" Then
Using compressedFileStream As FileStream = File.Create(fileToCompress.FullName + ".gz")
Using compressionStream As GZipStream = New GZipStream(compressedFileStream, CompressionMode.Compress)
originalFileStream.CopyTo(compressionStream) ' <-------------- Hier fehler
Console.WriteLine("Compressed {0} from {1} to {2} bytes.", _
fileToCompress.Name, fileToCompress.Length.ToString(), compressedFileStream.Length.ToString())
End Using
End Using
End If
End Using
End Sub
Private Sub Decompress(ByVal fileToDecompress As FileInfo)
Using originalFileStream As FileStream = fileToDecompress.OpenRead()
Dim currentFileName As String = fileToDecompress.FullName
Dim newFileName = currentFileName.Remove(currentFileName.Length - fileToDecompress.Extension.Length)
Using decompressedFileStream As FileStream = File.Create(newFileName)
Using decompressionStream As GZipStream = New GZipStream(originalFileStream, CompressionMode.Decompress)
decompressionStream.CopyTo(decompressedFileStream) '<------ Hier fehler
Console.WriteLine("Decompressed: {0}", fileToDecompress.Name)
End Using
End Using
End Using
End Sub
End Module

Beim ZipFile beispiel sagt er mit das er ZipFile nicht kennt.
Im Namespace System.IO.Compression "fehlt" die Assembly System.IO.Compression.FileSystem

Mache ich hier was falsch? Beziehungsweise, ich denke schon das ich was falsch mache, aber was?

ThuCommix · 20. Dezember 2013, 11:59

Verwendest du auch die Frameworkversion die bei MSDN stand, als du dir das Beispiel kopiert hast?

Andy16823 · 20. Dezember 2013, 11:59

Hy wenn du Net 4.5 hast importier dir doch Compression.FileSystem da gibt es eine Funktion dafür. Dies geht leider erst ab der Version 4.5 frühere Versionen können diese Funktion leider nicht benutzen.

VB.NET-Quellcode

IO.Compression.ZipFile.CreateFromDirectory("Dein Ordner", "DeineZip.zip")

Schamash · 20. Dezember 2013, 12:16

OK!

Wer lesen kann ich klar im Vorteil.
Ich habe nur 4.0 zur Verfügung und kann auch hier nicht updaten.

gibt es eine ähnliche Vorgehensweise auch für FW <=4.0

fichz · 20. Dezember 2013, 12:18

Ich hatte mal für ein 2.0 Projekt die externe Lib "Ionic.Zip" verwendet. dotnetzip.codeplex.com/
Bin mit der ziemlich zufrieden.

Frameworktechnisch gibt es afaik keine andere Möglichkeit.

lg

Schamash · 20. Dezember 2013, 12:33

OK. Ich denke da ich es nur der übersichtshalber als "zip" speichern wollte werde ich nun einfach immer einen neuen Ordner anlegen.
Und wenn wir hier dann irgendwann auf 4.5 updaten baue ich die compression ein.

ThuCommix · 20. Dezember 2013, 12:34

GZip sollte jedoch auch unter 4.5 funktionieren. Benutze selbst GZip in einer 4.0 Library.

Schamash · 20. Dezember 2013, 12:45

@ThuCommix

Stimmt. Ich hatte das FW noch von den Tests auf 3.5 stehen. Jetzt auf 4.0 geht's mit gzip.

Heute ist echt nicht mein Tag

edit:

@ThuCommix
Ich hätte da noch eine Frage.
Ich schaffe es alle Dateien des Ordners zu komprimieren. Ist es auch möglich direkt den Ordner zu komprimieren

Ordner und Dateien Packen

Ordner und Dateien Packen

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben