Question

VB调用WINRAR 的路径

我的VB程序在调用WinRAR时可以做到，但是发现压缩文件里面包含了太长的路径
Rarexe = App.Path & "\winrar\winrar.exe" ‘我的APP.path是c:\program files\microsoft visual studio\vb98
Source = """" & App.Path & "\数据" & """"
Target = """" & App.Path & "\ls.rar" & """"
FileString = Rarexe & " a " & Target & " " & Source
Result = Shell(FileString, vbHide)
以上是我的代码，“数据”是一个文件夹
为什么压缩包内也包含了“program files\microsoft visual studio\vb98\数据”这么长的路径，打开的时候很麻烦，而且再用其他VB程序打开的话很难找到所要的文件夹。
我想压缩包中直接就是从“数据“这个文件夹开始的，该怎么做？
顺便问下WINRAR A [-switches] [Files] [@File lists]语句中switch都可以取哪些值，怎么用？
呃，第一个问题已经解决了
谁能说下关于switch的就给分

Answer 1

Rarexe = App.Path & "\winrar\winrar.exe" WinRAR 程序是不可能在你当前目录下的。

传递命令时只需把 数据 这个文件夹的路径值传递就行了。

把压缩命令写成BAT文件后调用：使用SHELL命令
文件与文件夹在压缩前加入一个判断命令。
解压缩命令 是调用 WINRAR 参数中的 e 命令就行了。路径长短不须你操心
如果实在是不明白就把。WinRAR 中文帮助文档翻看个二三次就懂了。

'生成压缩命令行
'参数注解；
a 命令开关，
-df 压缩后删除原文件，
-ep1 从名称排除基准文件夹，
-ibck后台运行压缩程序。
以上四个参数为winrar 命令行参数。后三个为可选参数，第一个 a 为必须的。

WinRARExEPath 是 WinRAR 程序绝对路径值，从注册表中获取的
ON_NAME & ".rar" 是目标文件文件名称包含驱动器名。称扩展名为 .rar
FilePath 是原文件或文件夹名称包含驱动器名。

BatchStr = """" & WinRARExEPath & """ a -ep1 -o+ -ibck """ & ON_NAME & ".rar" & """ """ & FilePath & """"
Call logFile(App.Path & "\WinRaR.bat", BatchStr) '写入批处理语句
Shell App.Path & "\WinRaR.bat" '调用批处理文件

以上问题你需要解决：
1：如可何操作注册表
2：文件与文件夹的操作
3：命令行中的双引号与单引号的输入
QQ:281972862

Answer 2

FileString=Rarexe & " a -ep “ & Target & " " & Source

这样就可以了
winrar命令行参数如下：

winrar <命令> -<开关 1> -<开关 N> <压缩文件> <文件...>
<@列表文件...> <解压路径">
<命令>
a 添加文件到压缩文件
c 添加压缩文件注释
cf 添加文件注释
cw 写入压缩文件注释到文件
d 删除压缩文件中的文件
e 解压压缩文件到当前目录
f 刷新压缩文件中的文件
i[参数]=<串> 在压缩文件中查找字符串
k 锁定压缩文件
l[t,b] 列出压缩文件[技术信息,简洁]
m[f] 移动到压缩文件[仅对文件]
p 打印文件到标准输出设备
r 修复压缩文件
rc 重建丢失的卷
rn 重命名压缩文件
rr[N] 添加数据恢复记录
rv[N] 创建恢复卷
s[名字|-] 转换压缩文件为自解压格式或转换回压缩文件
t 测试压缩文件
u 更新压缩文件中的文件
v[t,b] 详细列出压缩文件[技术信息,简洁]
x 用绝对路径解压文件
<开关>
- 停止扫描
ac 压缩或解压后清除存档属性
ad 添加压缩文件名到目标路径
ag[格式] 使用当前日期生成压缩文件名
ao 添加具有压缩属性的文件
ap<格式> 添加路径到压缩文件中
as 同步压缩文件内容
av 添加用户身份校验(仅注册版本可用)
av- 禁用用户身份校验
c- 禁用注释显示
cfg- 禁用读取配置
cl 名称转换为小写
cu 名称转换为大写
df 压缩后删除文件
dh 打开共享文件
ds 对固实压缩文件禁用名称排序
e[+]<属性> 设置文件排除和包括属性
ed 不添加空目录
en 不添加"压缩文件结束"标志
ep 从名称中排除路径
ep1 从名称中排除基本目录
ep2 展开为完整路径
ep3 扩展路径为包含盘符的完全路径
f 刷新文件
hp[密码] 同时加密文件数据和文件头
id[c,d,p,q] 禁用消息
ieml[属性] 用 E-mail 发送压缩文件
ierr 发送所有消息到标准错误设备
ilog[名称] 把错误写到日志文件(只有注册版本可用)
inul 禁用所有消息
ioff 完成一个操作后关闭 PC 电源
isnd 启用声音
k 锁定压缩文件
kb 保留损坏的已解压文件
m<0..5> 设置压缩级别(0-存储...3-默认...5-最大)
mc<参数> 设置高级压缩参数
md<大小> 以KB为单位的字典大小(64,128,256,512,1024,2048,4096 or A-G)
ms[ext;ext] 指定存储的文件类型
n<文件> 仅包含指定的文件
n@ 从标准输入设备读取文件名到包括
n@<列表> 在指定的文件列表包括文件
o+ 覆盖已存在文件
o- 不覆盖已存在文件
oc 设置 NTFS 压缩属性
os 保存 NTFS 流
ow 保存或恢复文件所有者和组
p[密码] 设置密码
p- 不询问密码
r 递归子目录
r0 仅递归通配符名称的子目录
ri<P>[:<S>] 设置优先级(0-默认,1-最小..15-最大)和以毫秒为单位的休眠时间
rr[N] 添加数据恢复记录
rv[N] 创建恢复卷
s[<N>,v[-],e] 创建固实压缩文件
s- 禁用固实压缩文件
sfx[名称] 创建自解压压缩文件
st[名称] 从标准输入设备读取数据(stdin)
t 压缩后测试文件
ta<日期> 添加日期 <日期> 后修改的文件,日期格式 YYYYMMDDHHMMSS
tb<日期> 添加日期 <日期> 前修改的文件,日期格式 YYYYMMDDHHMMSS
tk 保留原始压缩文件时间
tl 设置压缩文件时间为最新文件时间
tn<时间> 添加 <时间> 以后的文件
to<时间> 添加 <时间> 以前的文件
ts<m,c,a>[N] 保存或恢复文件时间(修改,创建,访问)
u 更新文件
v 自动检测创建卷的大小或者列出所有的卷
v<大小>[k,b] 创建卷大小=<大小>*1000 [*1024, *1]
vd 创建容量前清除磁盘内容
ver[n] 文件版本控制
vn 使用旧风格的卷命名方案
vp 每卷之前暂停
w<路径> 指定工作目录
x<文件> 排除指定的文件
x@ 从标准输入设备读取要排除的文件名
x@<列表> 排除指定列表文件中的文件
y 假设对全部询问都回答是
z<文件> 从文件读取压缩文件注释

追问

大哥你也很厉害，但是分只能给一个人，不好意思哈