主题：求助，压缩打包文件夹代码（已解决）

求助：压缩指定的整个文件夹 或者 个别的文件，为一个文件，并且可以设置压缩密码。

类似于WinRar软件，请高手指定代码怎样写

 

　

不调用外部程序的有没办法？

我建立一个批处理文件testing.bat

里面写入内容为：  WinRAR a testFiles "C:\table\"*.*

 

然后我在狐表中测试代码

Dim Proc As New Process '定义一个新的Process
Proc.File = "C:\Program Files\WinRAR\testing.bat" '指定要打开的文件
Proc.Verb = "open"
Proc.Start

没有效果！请问为什么

 

 

请教在狐表在怎样写代码运行批处理文件

 

 

 

文件是存在的，执行了批处理文件没效果。

 

我直接在双击文件，就有效果

 

我就是不知在狐表怎样实现执行批处理文件

 

Dim Proc As New Process
Proc.File = "C:\Program Files\WinRAR\testing.bat"
Proc.Start

 

在狐表的命令窗口中执行，只是出现一闪，执行后没有反应，不知什么原因？？？？

 

 

我试过在，

点击windows的开始》运行》，弹出运行框，

输入C:\Program Files\WinRAR\testing.bat

执行后有反应，证明我的批处理的命令是对的

 

我又试过打开windows的cmd.exe

输入：cd C:\Program Files\WinRAR

回车

再输入：testing.bat

回车

执行后有反应，证明我的批处理的命令是对的

 

Dim Proc As New Process
Proc.File = "cmd.exe"
Proc.Start

执行

弹出命令窗口，发现显示的路径是 D:\release

 

我将C:\Program Files\WinRAR\所有文件复制到狐表的目录下

Dim Proc As New Process
Proc.File = "testing.bat"
Proc.Start

又执行了

 

终于有反应，达到效果

 

狐爸，成功了，谢谢

狐表，以后能否加多一个压缩/解压功能，就方便大家了。

 

不然就得先安装winrar后，才能够使用外部调用命令，就比较麻烦了点。

 

 

能否够一个DLL调用，也可以，这样也可以少了一步安装winrar

怎么使用