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
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?
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.
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?
There is no CLOUD - just other people's computers
Q: Why do JAVA developers wear glasses?
A: Because they can't C#
Daily prayer:
"Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."
Q: Why do JAVA developers wear glasses?
A: Because they can't C#
Daily prayer:
"Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."