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

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

如下图所示：