sharpziplib是一个不错的在线压缩软软件.用VB.net简单写了个使用代码!
2005-06-14 22:27
941 查看
1Dim zipname As String = Path.Combine(Me.zipdir, (Me.txtZipFile.Text.ToString & ".zip"))
2 Dim crc1 As New Crc32
3 Dim s As ZipOutputStream = New ZipOutputStream(File.Create(zipname))
4 s.SetLevel(6)
5 Dim i As Integer
6 Dim flename As String() = {Server.MapPath("temp\index.htm"), Server.MapPath("temp\regriter.htm")}
7
8 For i = 0 To flename.Length - 1
9 Dim name As String = flename(i)
10 Dim stratem As FileStream = File.OpenRead(name)
11 Dim buffer As Byte() = New Byte(stratem.Length - 1) {}
12 stratem.Read(buffer, 0, buffer.Length)
13 Dim filename1 As String = name.Replace((Me.timpdir & "\"), "")
14 Dim entry As New ZipEntry(filename1)
15 entry.DateTime = DateTime.Now
16 entry.Size = stratem.Length
17 stratem.Close()
18 crc1.Reset()
19 crc1.Update(buffer)
20 entry.Crc = crc1.Value
21 s.PutNextEntry(entry)
22 s.Write(buffer, 0, buffer.Length)
23 Next
24 s.Finish()
25 s.Close()
1Imports System.IO
2
3Public Class utilClass util
4
5 Public Shared Function GetDirecotry()Function GetDirecotry(ByVal DirecotryName As String) As String
6 Dim dir As String = HttpContext.Current.Request.PhysicalApplicationPath
7 dir = Path.Combine(dir, DirecotryName)
8 If Directory.Exists(dir) = True Then
9 Directory.CreateDirectory(dir)
10 End If
11 Return dir
12 End Function
13
14End Class
2 Dim crc1 As New Crc32
3 Dim s As ZipOutputStream = New ZipOutputStream(File.Create(zipname))
4 s.SetLevel(6)
5 Dim i As Integer
6 Dim flename As String() = {Server.MapPath("temp\index.htm"), Server.MapPath("temp\regriter.htm")}
7
8 For i = 0 To flename.Length - 1
9 Dim name As String = flename(i)
10 Dim stratem As FileStream = File.OpenRead(name)
11 Dim buffer As Byte() = New Byte(stratem.Length - 1) {}
12 stratem.Read(buffer, 0, buffer.Length)
13 Dim filename1 As String = name.Replace((Me.timpdir & "\"), "")
14 Dim entry As New ZipEntry(filename1)
15 entry.DateTime = DateTime.Now
16 entry.Size = stratem.Length
17 stratem.Close()
18 crc1.Reset()
19 crc1.Update(buffer)
20 entry.Crc = crc1.Value
21 s.PutNextEntry(entry)
22 s.Write(buffer, 0, buffer.Length)
23 Next
24 s.Finish()
25 s.Close()
1Imports System.IO
2
3Public Class utilClass util
4
5 Public Shared Function GetDirecotry()Function GetDirecotry(ByVal DirecotryName As String) As String
6 Dim dir As String = HttpContext.Current.Request.PhysicalApplicationPath
7 dir = Path.Combine(dir, DirecotryName)
8 If Directory.Exists(dir) = True Then
9 Directory.CreateDirectory(dir)
10 End If
11 Return dir
12 End Function
13
14End Class
相关文章推荐
- 一个简单的动态编译器,支持C#和VB.NET。当你想测试一些简单的代码的时候可以使用。
- 使用VB.Net写一个简单的数据访问层(不能称ORM):CRUD操作
- 使用VB.Net写一个简单的数据访问层(不能称ORM):前言
- 使用VB.Net写一个简单的数据访问层:T-Sql函数的支持。
- 使用.NET REACTOR使用方法,制作软件许可证,做一个简单的许可证系统步骤
- 一个VB.NET与C#代码在线互转的网站
- 使用VB.Net写一个简单的数据访问层(不能称ORM):前言
- 使用VB.Net写一个简单的数据访问层:T-Sql函数的支持。
- 使用VB.Net写一个简单的数据访问层(不能称ORM):CRUD操作
- 一个VB.NET与C#代码在线互转的网站
- [VB.NET]如何定义使用一个跟窗体生存期相同的数组
- 一个超级简单的IP地址搜索引擎(Asp.Net)事件代码12行
- [VB.NET]简单调用问题,在线等,TKS
- 使用DES加密解密代码(C# & vb.Net)
- IronPython for ASP.NET:使用IronPython创建一个简单的Web页面
- UML工具推荐 Poseidon版本 可以免费下载,自动生成代码 C++ Java C# VB.NET等 (来自德国汉堡的国际性建模软件开发商Gentleware AG的)
- 100% .NET Control_使用CurrencyManager 创建一个导航条来控制DatagGrid的XNavBar控件(VB.NET).
- 使用haffman(哈夫曼)编码的简单压缩软件
- ASP.NET中使用Application对象实现简单在线人数统计功能
- 【iOS开展-50】使用它来创建一个新的类的实现代码包,因此,不自觉地练习简单MVC实验,附带动画