怎么利用VB调用WinRAR压缩某文件夹下某几个文件

如何利用VB调用WinRAR压缩某文件夹下某几个文件
近日，在网上找了相关的资料，进行了实验，但是报错，错误附件截图，请高手指教：
------解决方案--------------------
'先将rar.exe 拷到共用路径 windows或system32 下
'我还有一些winrar的帮助材料,有需要的话给我邮箱吧.

'压缩 d:\pintu 文件夹下的*.gif 到 c:\test.rar

Option Explicit
Dim wsource$, wtarget$, aa$
Private Sub Command1_Click()
    wsource = "d:\pintu\*.gif" ' Text1.Text ' 原始文件
    wtarget = "c:\test.rar" 'Text2.Text  ' 目地文件
    aa = "rar.exe " & "a " & wtarget & " " & wsource
    Call Shell(aa, vbHide)
    MsgBox "压缩完成!"
End Sub


------解决方案--------------------
已发送
------解决方案--------------------
Private Sub Command1_Click() '压缩
   wsource = "e:\music\*.mp3"
   wtarget = "c:\test.rar"
   aa = "rar a -ep " & wtarget & " " & wsource  '-ep 就是不会带文件夹,直接只有文件
   Call Shell(aa, vbHide)
   'starttm = Timer
   'Do
   '   DoEvents
   '   If Isrunexe("rar.exe") = False Then Exit Do
   'Loop Until Timer > starttm + 60
   MsgBox "压缩完成!"
End Sub