vb如何调用Windows自带的压缩工具给zip文件加密

襄阳城

<p>vb如何调用Windows自带的压缩工具给zip文件加密</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：100 -</p>
<p>解决时间：2010-6-28 09:53</p>
<p>windows默认将zip文件看成一个文件夹，用windows默认的方式打开zip文件后，在文件菜单中有一个添加密码，点击它可以给这个zip文件添加密码，我现在想知道，用VB或者VBA以编程的方式如何实现这一点，愿各位高手不吝赐教。</p>
<p>（优秀答案加分）</p>
<p>问题补充：</p>
<p>vb中可以创建一个 shell.application 对象，如 set objShell = createObject("shell.application")</p>
<p>这个对象有一个方法 objShell.NameSpace() ，参数是一个目录路径，返回一个目录对象，用这个对象能不能模拟用户在文件夹上的操作（文件->添加密码）？听说可以用事件监听技术来实现，不知可否？</p>
<p>提问者： 282221668 - 五级</p>
<p>最佳答案</p>
<p>你把简单的问题弄复杂了，去随便找个zip组件吧，就算是winrar自带的rar.exe都支持密码操作的。</p>
<p>如果一定要通过系统自带的那个功能来实现的话，可以考虑模拟按键操作，也就是用findwindow之类找到打开的那个窗口，然后对那个窗口发送按键信息来添加密码。</p>
<p>系统自带那个zipfldr.dll没有公开接口，用命令行运行rundll32 zipfldr.dll，RouteTheCall zipfile可以打开那个界面。至于vb或者其它语言中一般都是内置压缩模块或者其它压缩解压缩控件来完成的，比如http://www.vbaccelerator.com/home/VB/Code/Libraries/Compression/Zipping_Files/article.asp</p>
<p>0</p>
<p>回答者：</p>
<p><img src="http://img.baidu.com/img/iknow/icon_huizhang.gif"></p>
<p>syht2000 - 十二级   2010-6-18 02:02</p>
<p>我来评论>></p>