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
