摘要： 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)) ... 阅读全文