使用GZipStream类将文件压缩/解压到指定路径代码,CSharp代码库,德仔网

代码语言

代码分类

【CSharp】使用GZipStream类将文件压缩/解压到指定路径

作者: / 发布于2011/1/12/ 680

使用GZipStream压缩文件时只能压缩/解压一个文件而不能压缩/解压文件夹

<div>1.、压缩</div>
<div> Public Function Compress(ByVal filepath As String, ByVal zipfilepath As String) As Boolean
 Dim buffer() As Byte
 Using fs As New FileStream(filepath, FileMode.Open, FileAccess.Read)
 ReDim buffer(fs.Length)
 fs.Read(buffer, 0, fs.Length)
 Using fsInput As New FileStream(zipfilepath, FileMode.Create, FileAccess.Write)
 Using zip As New GZipStream(fsInput, CompressionMode.Compress, True)</div>
<div> zip.Write(buffer, 0, buffer.Length)
 End Using
 End Using
 End Using
 End Function</div>
<div>调用</div>
<div>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Compress("E:\smile.txt", "E:\smile.zip")
 End Sub
2、解压</div>
<div>Public Function UNCompress(ByVal filepath As String, ByVal zipfilepath As String) As Boolean
 Using fs As New FileStream(filepath, FileMode.Create, FileAccess.Write)
 Using fsOutput As New FileStream(zipfilepath, FileMode.Open, FileAccess.Read)
 Using zip As New GZipStream(fsOutput, CompressionMode.Decompress, True)
 Dim buffer(4096) As Byte
 Dim bytesRead As Integer = -1</div>
<div> Do While bytesRead <> 0
 bytesRead = zip.Read(buffer, 0, buffer.Length)
 fs.Write(buffer, 0, bytesRead)
 Loop
 End Using
 End Using
 End Using</div>
<div> End Function</div>
<div>调用</div>
<div> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 UNCompress("E:\141\smile.txt", "E:\smile.zip")
 End Sub
End Class
关键在于CompressionMode压缩用Compress解压用Decompress</div>

试试其它关键字

　文件压缩　

同语言下

可能有用的

贡献的其它代码Label