如何使用XCDZIP35.OCX对文件压缩-已解决整理
来源:互联网 发布:中国历年gdp增长率数据 编辑:程序博客网 时间:2024/06/08 10:26
首先注册
在窗口中插入ole控件
命名为 ole_zip
//指定需要压缩的具体文件名
ole_zip.object.FilesToProcess =sle_socure.text
//可以指定压缩文件时所采用的密码
//(密码长度可达80个字符,最好设置长一点,不容易被解密)
//ole_zip.object.password ='SunGxf' //密码(把用户的注册码作为的密码,为注册的使用'SunGxf')
ole_zip.object.UseTempFile=false //压缩时是否使用临时文件
ole_zip.object.TempPath='' //压缩时使用临时目录
ole_zip.object.Multidiskmode=TRUE //是否多盘压缩(分盘)
ole_zip.object.ClearDisks=TRUE //是否清除磁盘内容
ole_zip.object.UsepATHS=FALSE //是否保存路径
ole_zip.object.Recurse=FALSE //是否包括子目录
ole_zip.object.Compression=as_compression //设置压缩率(0-9)
//指定压缩到什么文件中(如果源文件存在,则同名文件会更新)
ole_zip.object.ZipFilename = sle_dest.text
//开始压缩
REsultCode = ole_zip.object.Add(0) //开始压缩
If ResultCode <> 0 Then
Messagebox("提示", "压缩不成功"))
end if
解压缩
//解压缩哪些文件,用*表示zip中所有文件
ole_1.object.FilesToProcess = "*"
//指定原来压缩文件时所采用的密码,密码不正确则会激发xceedzip的SkippingFile事件
ole_1.object.Password = ""
ole_1.object.Overwrite=1
//ole_1.object.PreservePaths = true
//指定解压缩到的起始目录
ole_1.object.ExtractDirectory ='D:/ddd' //D:/XXXX/DATA/01/SJ00001(2001-12-29)
//指定需要解压缩的原zip文件
ole_1.object.ZipFilename ="D:/ddd/a.zip"
//开始列出压缩包中的文件
ResultCode = ole_1.object.list()
//xecAll (0) All the listed files are extracted from the archive, into the destination directory specified by ExtractDirectory.
//xecFreshen (1) Only the listed files to extract from the archive that are more recent than those already existing in the destination directory are extracted. Files that only exist in the archive but not in the destination directory are not extracted.
//xecUpdate (2) Same as xecFreshen, but also extracts files that do not already exist.
//这句话以前没有,忘了加
ole_1.object.extract('0')//参数‘0’,'1','2'你可以试一下,我上传一个帮助你看看,'0',跟'2'的时候可以成功
//检查是否成功
a = ole_1.object.FileCount //压缩包中的文件数
if ResultCode=0 or ResultCode=410 then//(带密码的ZIP)
messagebox(string(a),'成功'+string(ResultCode))
end if
- 如何使用XCDZIP35.OCX对文件压缩-已解决整理
- 如何使用XCDZIP35.OCX对文件压缩
- 如何在VB中使用OCX文件
- VC6.0如何使用ocx控件文件
- 如何注册ocx文件
- Java 压缩、解压缩文件(中文乱码问题已解决)
- 解决win10 “ .dll(或.ocx)控件已加载,但对DllregisterServer的调用失败,错误代码为0x80007005”
- C#如何调用OCX文件
- 如何使用WebService上传文件至SharePoint 文档库中(已解决)
- 使用Java对文件进行压缩处理
- 使用Deflate算法对文件进行压缩和解压缩
- ocx控件 tlb文件 使用
- vsflex8.ocx已加载,但对DLLREGISTERSERVER的调用失败
- 关于JSP 调用 OCX的问题【已解决】
- 如何使用iexpress把ocx,dll等文件打包成cab文件
- OCX控件开发及WEB Javascript如何使用OCX控件
- 如何对单个文件进行简单的zip压缩
- tomcat如何启用Gzip对静态文件压缩
- SQL实现交叉表的方法
- RHEL5问题
- ConcurrentHashMap应用注意事项
- 常量和静态只读字段
- 业务对象的特征和类型
- 如何使用XCDZIP35.OCX对文件压缩-已解决整理
- 伪指令.word
- 在Windows Visual C++ 6.0/7.0下编译带ssl的curl库
- 开博
- 皮带传动实验
- Java数据的持久保存——写入XML文件
- Hibernate级联操作学习之持久化临时对象
- eMule源代码解析
- 用DirectShow实现QQ的音视频聊天功能