安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access使用rar.exe命令行解压时如何使用相对路径

2017-09-22 22:39:00
zstmtony
原创
1019

我们知道Access可使用rar.exe或unrar.exe(无须授权) 的命令行方式可以用VBA来自动解压文件

如果要解压到 当前目录,且不需要考虑压缩包里文件的相对路径的话,可以使用 参数 e

strSrc = CurrentProject.Path & "\patch.rar"
strDes = CurrentProject.Path
strCmdLine = CurrentProject.Path & "\rar.exe e -o+ -ep1 """ & strSrc & """ """ & strDes & """"


这样解压,压缩包里的所有文件(包括子目录 子目录里的目录)都会被解压到 指定目标目录的根目录下。


但如果希望解压时保留 压缩包里所有文件的相对路径呢,则应该将 e 命令改为 x  ,这样就可保留相对路径了



strSrc = CurrentProject.Path & "\patch.rar"
strDes = CurrentProject.Path
strCmdLine = CurrentProject.Path & "\rar.exe x -o+ -ep1 """ & strSrc & """ """ & strDes & """"


如下图所示:



    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.13
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假