首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2013-03-26 
如何利用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

怎么利用VB调用WinRAR压缩某文件夹下某几个文件
[解决办法]
已发送
[解决办法]
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

热点排行