如何使用XCDZIP35.OCX对文件压缩
来源:互联网 发布:阿里云幕布图片 编辑:程序博客网 时间:2024/05/18 17:25
首先注册
在窗口中插入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
控件下载
附件: [如何使用XCDZIP35.OCX对文件压缩] mJAvbBls.rar (2006-10-18 18:19, 65.06 K)
该附件被下载次数 32
==============================
解压缩
//解压缩哪些文件,用*表示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文件
- C#如何调用OCX文件
- 使用Java对文件进行压缩处理
- 使用Deflate算法对文件进行压缩和解压缩
- ocx控件 tlb文件 使用
- 如何使用iexpress把ocx,dll等文件打包成cab文件
- OCX控件开发及WEB Javascript如何使用OCX控件
- 如何对单个文件进行简单的zip压缩
- tomcat如何启用Gzip对静态文件压缩
- ocx文件如何加载到网页
- 如何在VB中加载OCX文件
- 如何注册DLL或OCX文件
- 如何注册.DLL或.OCX文件
- 如何运行后缀为ocx的文件
- Consuming Unmanaged C++ Class Libraries from .NET Clients
- Web界面测试用例
- SQL Server 2000中的触发器使用-
- 为评估而忙碌
- GridView 与 DataGrid 服务器控件
- 如何使用XCDZIP35.OCX对文件压缩
- LINUX起死回生记
- BCP_IS中的权限问题
- 如何判断是否安装了sqlserver,如何判断sqlserver是否启动,,如何启动sqlserver
- Go on with My Rencently
- C#中如何调用C++编写的DLL
- 如何在数据窗口中显示图片
- 转jspSmart中类的说明
- lucene建索引时的一个"Can't rename segments.new to segments"异常的原因