【VB调用shell函数示例】

    1、请问如何用vb调用rar压缩文件？怎样经由过程VB调用rar把它们压缩成一个“.rar”文件？

    首先，你要装Winrar
    要把整个用法都写出来也是挺长的(参阅C:\Program Files\Winrar\Rar.txt 47,855 字节来讲RAR的命令行)
    简单说
    Const WinRAR = "C:\Program Files\Winrar\" 'winrar安装地址，要带\

    Const Path1 = "c:\1.txt" '要压缩的文件,路径带空格的话在外面多套两对双引号

    Const Path2 = "c:\2.txt" '要压缩的文件，同上

    Const RarPath = "c:\3.rar" '生成的压缩文件名，同上

    Private Sub Command1_Click()

        Shell WinRAR & "rar.exe a " & RarPath & " " & Path1 & " qq" & Path2
    End Sub

2、VB 解压rar文件 要解压文件夹！

    打开RAR文件 内里有2个文件夹
    分别打开文件夹内里又有文件夹
    我需要解压到D盘目录下 RAR内里的文件夹也要原封不动的解压出来 改怎么办

Private Sub Command1_Click()
On Error Resume Next
  cc = CreateObject("WScript.Shell").RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe\path")
   If Err Then
      MsgBox "没有安装winrar"
   Else

    '                                         压缩文件     解压目录
      Shell cc & "\rar.exe x " & "c:\1.rar" & " " & "d:\", vbhide
  End If
End Sub

3、VB调用dll