找回密码
 立即注册

QQ登录

只需一步,快速开始

d990213m
初级会员   /  发表于:2015-12-3 18:44:00
11#
你好。
   附件里的Demo,你帮我看看哪里有误?
   为什么生成后的zip文件,是无法解压的。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 使用道具 举报
Alice
社区贡献组   /  发表于:2015-12-4 09:05:00
12#
回复 11楼d990213m的帖子

谢谢您提供的Demo。
问题我们已经收到了,测试后给您反馈。
请点击评分,对我的服务做出评价!  5分为非常满意!

葡萄城控件服务团队

官方网站: http://www.gcpowertools.com.cn
回复 使用道具 举报
d990213m
初级会员   /  发表于:2015-12-4 09:34:00
13#
如果把解压的流程加个Demo进去的话,就非常感谢了!:rose
回复 使用道具 举报
Alice
社区贡献组   /  发表于:2015-12-4 16:28:00
14#
回复 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.         Dim strTextFileName(2) As String
  5.         Dim strFileName As String = "F:\123.zip"

  6.         Try
  7.             m_Zip.Create(strFileName)
  8.         Catch
  9.             MessageBox.Show("Can't create ZIP file, please try again.", "C1Zip")
  10.         End Try


  11.         strTextFileName(0) = "F:\test1.txt"
  12.         strTextFileName(1) = "F:\test2.txt"

  13.         For i = 0 To 1
  14.             m_Zip.Entries.Add(strTextFileName(i))
  15.         Next

  16.     End Sub

  17.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  18.         m_Zip = New C1ZipFile()
  19.     End Sub
  20. End Class
复制代码
请点击评分,对我的服务做出评价!  5分为非常满意!

葡萄城控件服务团队

官方网站: http://www.gcpowertools.com.cn
回复 使用道具 举报
Alice
社区贡献组   /  发表于:2015-12-4 16:41:00
15#
回复 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.         Dim files As String() = System.IO.Directory.GetFiles(appPath)

  4.         Try
  5.             m_Zip.Create(appPath + "\Compress.zip")
  6.         Catch
  7.             MessageBox.Show("Can't create ZIP file, please try again.", "C1Zip")
  8.         End Try

  9.         Dim srcFile As String
  10.         For Each srcFile In files

  11.             ' compress file
  12.             m_Zip.Entries.Add(srcFile)
  13.         Next
复制代码
请点击评分,对我的服务做出评价!  5分为非常满意!

葡萄城控件服务团队

官方网站: http://www.gcpowertools.com.cn
回复 使用道具 举报
d990213m
初级会员   /  发表于:2015-12-4 16:45:00
16#
你好。收到。

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

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 使用道具 举报
d990213m
初级会员   /  发表于:2015-12-4 16:50:00
17#
你好。
  找到压缩路径的方法了。
   m_Zip.Entries.AddFolder(strPath)
回复 使用道具 举报
Alice
社区贡献组   /  发表于:2015-12-4 17:17:00
18#
回复 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.         Try
  4.             m_Zip.Open(strFileName)
  5.         Catch
  6.             MessageBox.Show("Invalid ZIP file, please try again.", "C1Zip")
  7.         End Try

  8.         Dim srcFile As C1ZipEntry
  9.         For Each srcFile In m_Zip.Entries
  10.             'expand file
  11.             m_Zip.Entries.Extract(srcFile.FileName)
  12.         Next

  13.     End Sub
复制代码
请点击评分,对我的服务做出评价!  5分为非常满意!

葡萄城控件服务团队

官方网站: http://www.gcpowertools.com.cn
回复 使用道具 举报
Alice
社区贡献组   /  发表于:2015-12-9 14:09:00
19#
回复 17楼d990213m的帖子

请问您的问题进展如何?

如果没有问题,此帖子关闭。
如果有新的问题,请开新帖。
请点击评分,对我的服务做出评价!  5分为非常满意!

葡萄城控件服务团队

官方网站: http://www.gcpowertools.com.cn
回复 使用道具 举报
12
您需要登录后才可以回帖 登录 | 立即注册
返回顶部