gzip stream in VBA entpacken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ok,
war mir nicht so ganz klar.
Hier die Referenz bei Microsoft mit VB Beispielcode.
http://msdn.microsoft.com/de-de/library/system.io.compression.gzipstream%28v=vs.110%29.aspx


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)
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)
Console.WriteLine("Decompressed: {0}", fileToDecompress.Name)
End Using
End Using
End Using
End Sub
End Module

Private Sub CommandButton7_Click() Rem ... Hier steht noch anderer Code If OptionButton1.Value = True Then strZipPath = tbxFilePathLF strZipName = "access_logfile_" & strEDate & ".txt.gz" ElseIf OptionButton2.Value = True Then strZipPath = tbxFilePathLF strZipName = "error_logfile_" & strEDate & ".txt.gz" errorLogFile = Split(strURL, "file=") errorFile = Split(errorLogFile(1), ".") End If CopyURLToFile strURL, strZipPath & strZipName DeleteUrlCacheEntry (strURL) Exit For End If Next objLink On Error GoTo Fin strZip = ThisWorkbook.Path & "\7za.exe" strPathZ = tbxFilePathLF gzFile = strZipPath & strZipName strFileName = gzFile strArg = strZip & " e -pHIDE " & strFileName & " -y -o" & strZipPath ShellAndWait strArg Rem ... Hier steht auch noch anderer Code End Sub Private Sub ShellAndWait(ByVal strPathName As String) Dim WshShell As Object On Error GoTo Fin Set WshShell = CreateObject("WScript.Shell") WshShell.Run strPathName, 0, True Fin: Set WshShell = Nothing If Err.Number <> 0 Then MsgBox "Error: " & _ Err.Number & " " & Err.Description End Sub VBA/HTML - CodeConverter für Office-Foren AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann Projektbetreuung durch mumpel Code erstellt und getestet in Office 15

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread