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

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

我们知道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 & """"


如下图所示:



    分享