winrar压缩文件夹

Question

mystr = App.Path & "\others\rar.exe" 'winrar.exe文件路径
Source = App.Path & "\others\数据库"
Target = App.Path & "\others\数据库.rar" '压缩格式可以是rar,也可以是cab....
mystr = mystr & " a -r " & Target & " " & Source '命令字符串
retval = Shell(mystr, vbHide)
这样压缩了之后，得到的 ”数据库.rar“里面包含App.Path & "\others中一层层的文件夹，最后才是真正的数据库文件夹，我现在只想要最后的数据库文件夹，把之前的文件夹如何去掉

Answer 1

问题解决了
Dim Source As String ' 源文件
Dim Target As String ' 目标文件
Dim retval
 
mystr = App.Path & "\others\rar.exe" 'winrar.exe文件路径
Source = App.Path & "\others\数据库"
Target = App.Path & "\others\数据库.rar"  '压缩格式可以是rar,也可以是cab....
mystr = mystr & " a -ep1 " & Target & " " & Source '命令字符串
retval = Shell(mystr, vbHide)