C1zip的使用样例

你好。
   是否可以提供C1zip的使用样例。

回复 17楼d990213m的帖子

请问您的问题进展如何？

如果没有问题，此帖子关闭。
如果有新的问题，请开新帖。

回复 17楼d990213m的帖子

谢谢您的反馈。

根据电话沟通，如果您需要对zip文件解压缩，代码参考：

1.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
   
2.         Dim strFileName As String = "F:\123.zip"
   
3. 
   
4.         Try
   
5.             m_Zip.Open(strFileName)
   
6.         Catch
   
7.             MessageBox.Show("Invalid ZIP file, please try again.", "C1Zip")
   
8.         End Try
   
9. 
   
10.         Dim srcFile As C1ZipEntry
    
11.         For Each srcFile In m_Zip.Entries
    
12.             'expand file
    
13.             m_Zip.Entries.Extract(srcFile.FileName)
    
14.         Next
    
15. 
    
16.     End Sub

复制代码

你好。
  找到压缩路径的方法了。
   m_Zip.Entries.AddFolder(strPath)

你好。收到。

  另外，在电话里沟通的，压缩路径的情况如附件程序。
  我自己写的程序，无法压缩路径下的所有文件。

  如何能压缩一个路径下的所有文件。

回复 13楼d990213m的帖子

如果想指定路径下的所有文件压缩到指定zip文件。
和14楼的方法类似，不同的是，通过微软提供的接口Deirectory.GetFiles拿到该路径下的所有文件，然后添加到zip文件中。
假设在F盘的Files文件夹下有2个文件，将他们压缩到同一个zip文件Compress.zip中，代码参考：

1.   Dim strTextFileName(2) As String
   
2.         Dim appPath As String = "F:\Files"
   
3. 
   
4.         Dim files As String() = System.IO.Directory.GetFiles(appPath)
   
5. 
   
6.         Try
   
7.             m_Zip.Create(appPath + "\Compress.zip")
   
8.         Catch
   
9.             MessageBox.Show("Can't create ZIP file, please try again.", "C1Zip")
   
10.         End Try
    
11. 
    
12.         Dim srcFile As String
    
13.         For Each srcFile In files
    
14. 
    
15.             ' compress file
    
16.             m_Zip.Entries.Add(srcFile)
    
17.         Next

复制代码

回复 11楼d990213m的帖子

按照您的示例，如果已经存在几个文件，想要压缩到指定的路径下。
主要通过创建zip文件，然后将指定文件添加到zip文件中。
代码参考：

1. Public Class Form1
   
2.     Private m_Zip As C1ZipFile
   
3.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   
4. 
   
5.         Dim strTextFileName(2) As String
   
6.         Dim strFileName As String = "F:\123.zip"
   
7. 
   
8.         Try
   
9.             m_Zip.Create(strFileName)
   
10.         Catch
    
11.             MessageBox.Show("Can't create ZIP file, please try again.", "C1Zip")
    
12.         End Try
    
13. 
    
14. 
    
15.         strTextFileName(0) = "F:\test1.txt"
    
16.         strTextFileName(1) = "F:\test2.txt"
    
17. 
    
18.         For i = 0 To 1
    
19.             m_Zip.Entries.Add(strTextFileName(i))
    
20.         Next
    
21. 
    
22.     End Sub
    
23. 
    
24.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
25.         m_Zip = New C1ZipFile()
    
26.     End Sub
    
27. End Class
    

复制代码

如果把解压的流程加个Demo进去的话，就非常感谢了！:rose

回复 11楼d990213m的帖子

谢谢您提供的Demo。
问题我们已经收到了，测试后给您反馈。

你好。
   附件里的Demo，你帮我看看哪里有误？
   为什么生成后的zip文件，是无法解压的。