使用winrar压缩解压文件

lss001

Sub rar压缩解压文件()

   Set ws = CreateObject("Wscript.shell")

   st = "C:\Users\Admin\Documents\" '指定文件夹

   f = Dir(st &"*.xl*") '需压缩文件

   Do While f <> ""

       f = Split(f, ".")(0)

       ws.Run "winrar a /ep " & st & f & ".rar " & st & f & ".xl*", 0 '单独压缩

       'a压缩>>>注意：开关参数应加上符号"/"

       f = Dir

   Loop

   'ws.Run "winrar a " & st & "hb.rar " & st &"*.xl*", 0 '合并压缩//hb压缩后文件名

   'f = Dir(st & "*.rar") '需解压文件

   'Do While f <> ""

       'f = Split(f, ".")(0)

       'ws.Run "winrar x " & st & f & ".rar " & st, 0 '单独解压//x解压

       'f = Dir

   'Loop

   'ws.Run "winrar x " & st & "*.rar " & st, 0 '全部解压

End Sub

'rar <命令>

   '1 a 添加文件到压缩文件

   '2 c 添加压缩文件注释

   '3 ch 更改压缩文件参数

   '4 cw 将压缩文件注释写入文件

   '5 d 从压缩文件中删除文件

   '6 e 提取文件无需压缩文件的路径

   '7 f 更新压缩文件里的文件

   '8 i[par]<=Str> 查找压缩文件中的字符串

   '9 k 锁定压缩文件

   '10 l[t[a],b] 列出压缩文件内容[technical[all],bare]

   '11 m[f] 移动到压缩文件[仅文件]

   '12 p 打印文件到stdout

   '13 r 修复压缩文件

   '14 rc 重建丢失的分卷

   '15 rn 重命名已压缩文件

   '16 rr[N] 添加数据恢复记录

   '17 rv[N] 创建恢复分卷

   '18 s[name|-] 转换压缩文件为自解压或自解压转换为压缩文件

   '19 t 测试压缩文件

   '20 u 更新压缩文件中的文件

   '21 v[t[a],b] 详细列出压缩文件内容[technical[all],bare]

   '22 x 使用完整路径提取文件

lss001

'rar<开关参数>

    '1 - 停止参数扫描

    '2 @[+] 禁用[启用]文件列表

    '3 ac 压缩或解压后清除存档属性

    '4 ad 添加压缩文件名到目标路径

    '5 ag[格式] 使用当前日期生成压缩文件名

    '6 ai 忽略文件属性

    '7 ao 添加具有压缩属性的文件

    '8 ap <格式>添加路径到压缩文件中

    '9 as 同步压缩文件内容

    '10 c- 禁用注释显示

    '11 cfg- 禁用读取配置

    '12 cl 转换名称到小写

    '13 cu 转换名称到大写

    '14 df 压缩文件后删除原来的文件

    '15 dh 打开已共享文件

    '16 dr 删除文件到回收站

    '17 ds 对固实压缩文件禁用名称排序

    '18 dw 压缩文件后清除文件

    '19 e[+]<attr> 设置文件排除和包含属性

    '20 ed 不要添加空目录

    '21 en 不要放置 '压缩文件结束'区块

    '22 ep 从名称里排除路径

    '23 ep1 从名称里排除基目录

    '24 ep2 扩展路径到完整路径

    '25 ep3 扩展路径为完整路径包括驱动器盘符

    '26 f 更新文件

    '27 hp[password] 加密文件数据和文件头

    '28 ht[b|c] 为文件校验和选择哈希类型[BLAKE2,CRC32]

    '29 id[c,d,p,q]禁用信息

    '30 ieml[addr] 通过电邮发送压缩文件

    '31 ierr 发送所有消息到stderr

    '32 ilog[name] 记录错误到文件（仅注册版本）

    '33 inul 禁用所有消息

    '34 ioff 完成操作后关闭电脑

    '35 isnd 启用声音

    '36 k 锁定压缩文件

    '37 kb 保留损坏的已解压缩文件

    '38 log[f][=name] 将名称写入日志文件

    '39 m<0..5> 设置压缩级别(0-存储...3-默认...5-最大)

    '40 ma[4|5] 指定压缩格式的一个版本

    '41 mc<par> 设置高级压缩参数

    '42 md<n>[k,m,g] 字典大小显示为KB,MB或GB

    '43 ms[ext;ext]指定要存储的文件类型

    '44 mt<threads> 设置线程数

    '45 n<file> 额外的包含过滤器的文件

    '46 n@ 从stdin读取额外的过滤器掩码

    '47 n@<list> 从列表文件读取额外的过滤器掩码

    '48 o[+|-] 设置覆盖模式

    '49 oc 设置NTFS压缩属性

    '50 oh 将硬链接保存为链接而非文件

    '51 oi[0-4][:min] 将完全相同的文件保存为引用

    '52 ol[a] 将符号链接作为链接处理[绝对路径]

    '53 or 自动重命名文件

    '54 os 保存NTFS流

    '55 ow 保存或恢复文件所有者和组

    '56 p[password]设置密码

    '57 p- 不查询密码

    '58 qo[-|+] 添加快速打开信息[无|强制]

    '59 r 递归子目录

    '60 r- 禁用递归

    '61 r0 仅为通配符名称递归子目录

    '62 ri<P>[:<S>] 设置优先级(0-默认,1-最小..15-最大)和睡眠时间为ms

    '63 rr[N] 添加数据恢复记录

    '64 rv[N] 创建恢复分卷

    '65 s[<N>,v[-],e] 创建固实压缩文件

    '66 s- 禁用固实压缩文件

    '67 sc<chr>[obj] 指定字符集

    '68 sfx[name] 创建自解压文档

    '69 si[name] 从标准输入(stdin)读取数据

    '70 sl<size> 处理小于指定大小的文件

    '71 sm<size> 处理大于指定大小的文件

    '72 t 压缩文件后测试文件

    '73 ta<date> 处理在<日期>之后修改过的文件，以YYYYMMDDHHMMSS格式

    '74 tb<date> 处理在<日期>之前修改过的文件，以YYYYMMDDHHMMSS格式

    '75 tk 保存原来的压缩文件时间

    '76  tl 设置压缩文件时间为最新的文件

    '77  tn<time> 处理比<时间>较新的文件

    '78  to<time> 处理比<时间>较旧的文件

    '79  ts<m,c,a>[N] 保存或恢复文件时间（修改，创建，访问）

    '80  u 更新文件

    '81  v<size>[k,b] 创建分卷大小为=<size>*1000[*1024,*1]

    '82  vd 创建分卷之前清除磁盘内容

    '83  ver[n] 文件版本控制

    '84  vn 使用旧式的分卷命名方案

    '85  vp 创建每个分卷之前暂停

    '86  w<path> 指定工作目录

    '87  x<file> 排除指定的文件

    '88  x@ 读取文件名以从stdin排除

    '89  x@<list> 排除指定列表文件里列出的文件

    '90  y 对所有询问假定选择“是”

    '91  z[file] 从文件读取压缩文件注释