Question

vb调用WINRAR

vb调用WINRAR 怎么样压缩一个文件？？并给压缩文件加上密码？？

vb调用WINRAR 怎么样解压缩一个有密码的文件？？

要完整代码！！
Private Sub Command1_Click()
Dim n As String
n = Text1.Text

Shell ("C:\Program Files\WinRAR\winrar.exe a -hp｛密码？？？＝text1｝ -o+ c:\1.rar c:\1.txt"), vbHide
End Sub

怎么样将text1的内容代入密码？？？

Answer 1

从注册表 HKEY_CLASSES_ROOT\WinRAR\shell\open\command 读取到 winrar.exe 的安装路径，从中分析出WinRAR的所在文件夹，然后调用同目录下的 rar.exe 。可以用 shell 函数调用，rar.exe 的参数可以在cmd 下通过 rar -? 得到。

Answer 2

Private Sub Command1_Click()
Shell ("C:\Program Files\WinRAR\winrar.exe a -hpfGzq5yKw c:\secret.rar c:\1.txt")
End Sub

将添加文件 1.txt 到加密的压缩文件secret.rar中，使用密码
'fGzq5yKw'

-hp是密码开关
a是压缩参数

像你那个,要加text1为密码,就这样,ok了
=================================
dim psw as string'定义一个字符串
psw="C:\Program Files\WinRAR\winrar.exe a -hp" & Text1.Text & " c:\1.rar c:\1.txt"
Shell psw
==========================

Answer 3

可以把RAR.exe随工程发布，不依靠其他文件……

Answer 4

Shell ("C:\Program Files\WinRAR\winrar.exe a -hp｛" & text1.text & "｝ -o+ c:\1.rar c:\1.txt"), vbHide

要用 & 连接符