如何利用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
[其他解释]
已发送
[其他解释]
谢谢高手指点，如问题解决，定高分送上！
[其他解释]
我的邮箱是：
xiaoxu03518@163.com
谢谢！
[其他解释]
首先感谢cbm的分享！
按照您的方法，我做了实验！
‘--------------------------------------------------
Option Explicit
Dim wsource$, wtarget$, aa$
Private Sub Command1_Click()
wsource = "d:\pintu\1.doc d:\pintu\1.txt " ' Text1.Text ' 原始文件由1.txt和1.doc组成
wtarget = "d:\test.rar" 'Text2.Text ' 目地文件
aa = "rar.exe " & "a " & wtarget & " " & wsource
Call Shell(aa, vbHide)
MsgBox "压缩完成!"
End Sub
’--------------------------------------------------
但是我还有些疑问：
1. 如果原始文件在别的盘符下都没有问题，但是怎么使压缩文件中只有所压缩的文件，而没有文件夹！也就是点开压缩文件就能看到文件；
2. 当原始文件在桌面上时，该程序能够执行，但是找不到压缩后的压缩文件！
我桌面的地址是：C:\Documents and Settings\Administrator\桌面
请不吝指教！再次感谢！
[其他解释]
谢谢！不带文件夹的问题解决了！
只是当文件在桌面上时，压缩后的文件不知道跑那去了？就算是把目标.RAR 文件地址不是在桌面也找不到！不知为何？再次麻烦cbm666帮忙看看，分析一下原因！(*^__^*)
------其他解决方案--------------------
哈哈,早就知道你有这问题, 代码早就写好了,等着你呢, 在线的话给我发信息吧.
[其他解释]
在的！十分感谢啊！
[其他解释]
cbm666真是厉害啊！问题已经快解决了！真是开心啊！
[其他解释]
现在在cbm666的大力帮助下终于解决了！加分啊！满分奉上啊！
[其他解释]
我需要一个判断是否是当天得文件夹（文件夹是日期为名），如果是则不压缩，反之压缩,压缩得文件名以获取的文件夹为名，压缩后并删除文件夹，这样得一个程序，不知道怎么写。请指教我得邮箱是blbadboy@163.com
