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

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

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

 

　

调用外部程序，

winrar 有命令行模式的。http://www.cnblogs.com/pclook/archive/2009/05/06/1450539.html

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

我建立一个批处理文件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

没有效果！请问为什么

 

 

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

 

 

 

FileExists

判断指定的文件是否存在。

语法：

FileExists(File)

File: 要判断的文件

例如：

If FileSys.FileExists("c:\fox.jpg") Then
    Messagebox.Show("文件已经存在！","提示")
Else
    Messagebox.Show("文件不存在或已经被删除！","提示")
End If

 

先判断一下呢?

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

 

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

 

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

 

批处理就和其他文件一样执行：

 

Dim Proc As New Process
Proc.File = "f:\test.bat"
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

又执行了

 

终于有反应，达到效果

 

闪就表示肯定执行了的，因为执行完会自动关闭。

要注意路径，批处理第一行最好是：

 

cd c:\program files\winrar