摘要：通过该方法的应用，可以把数据库及有关文件压缩到含有空格的文件夹中，并且解决了由于Windows的并行性处理而引发的一系列问题。关键字：Winrar路径空格
Winrar是目前比较流行的高压缩率的压缩软件，有关它的使用报道文章也比较多，但他们都没能解决如‘压缩文件的路径名含有空格'的等难题。本人在开发《军械管理系统》课题期间，因为前台是VisualBasic、后台采用的是Access数据库，要求把数据库随时备份到硬盘的‘c:ProgramFiles'文件夹下，这样用通常的办法就不能进行恢复。经过分析，已经研究出解决的办法，下面作一介绍，以便同行借鉴。
1.解决空格的问题
在上面的表单中，如果按所选择的路径进行备份操作，将出现找不到文件的错误信息。解决方法是必须在未压缩之前用MkDir在硬盘的根目录中建立一个临时的文件夹，把要操作的数据库用FileCopy函数拷贝到临时的文件夹中，在这里进行文件的压缩工作，之后再拷贝到"c:ProgramFiles"的文件夹中，具体程序如下：
1．1备份操作
tdir="c:emppath"'临时路径名
MkDir(tdir)'创建临时路径
FileCopyApp.Path&"jxgl.mdb",tdir&"jxgl.mdb"'把文件从默认路径中拷到所创建的临时文件夹里
Rarexe=App.Path&"winrar.exe"
src=tdir&"jxgl.mdb"
des=tdir&"jxgl.rar"
FileString=Rarexe&"a-ep"&des&""&src
Result=Shell(FileString,vbHide)'在临时的文件夹中完成压缩的任务
IfErr.Number0Then
MsgBox"无法压缩数据库："&Err.Description,vbCritical
ExitSub
FileCopytdir&"jxgl.rar","c:ProgramFilesjxgl.rar"'从临时文件夹中再拷到所填写的"c:ProgramFiles"里
1．2恢复操作
tdir="c:emppath"'临时路径名
MkDir(tdir)'创建临时路径
FileCopy"c:ProgramFilesjxgl.rar",tdir&"jxgl.rar"'从"c:ProgramFiles"中把要恢复的压缩文件拷贝到临时文件夹中
Rarexe=App.Path&"winrar.exe"
des=tdir
src=tdir&"jxgl.rar"
FileString=Rarexe&"x-ep"&src&""&"jxgl.mdb"&""&des
Result=Shell(FileString,vbHide)'在临时的文件夹中完成解包的任务
IfErr.Number0Then
MsgBox"无法解开数据库："&Err.Description,vbCritical
ExitSub
FileCopytdir&"jxgl.mdb","c:ProgramFilesmdb.rar"'从临时文件夹中再拷到所填写的"c:ProgramFiles"里
2.解决数据库恢复出错的问题
Windows操作系统的一大特点就是进程的并行性，也就是在前一个任务未执行完之前，下一个任务已经开始执行，这有益于提高计算机的执行速度，但也存在着隐患。我们在数据库恢复时就遇到了此类问题。
例如：Winrarxa:jxgl.rarjxgl.mdbc:jxgl
FileCopy"c:jxgljxgl.mdb","c:ProgramFilesjxgl.mdb"
上面这两条命令行在PII/766计算机上执行没有任何问题，但在C/366计算机上执行就出现了找不到"c:jxgljxgl.mdb"的错误，经过大家的仔细分析，问题出在"进程的并行性"上。为了保障第二条命令的正常进行，必须使第一条命令执行完，由此我们通过增加预留时间解决了该问题，方法如下：
Winrarxa:jxgl.rarjxgl.mdbc:jxgl
tt=Timer'取得机器的当前时间
DoWhilettTimer-0.5'延迟0.5秒
Loop
FileCopy"c:jxgljxgl.mdb","c:ProgramFilesjxgl.mdb"
3．结束语
以上两种问题的解决办法未曾见到有关的报道，希望本文能对同行在软件设计时，在数据库的压缩过程中有所帮助。
参考文献：
谢东主编．VisualBasic开发多媒体应用程序．北京：清华大学出版社
作者姓名：李伟春
职称：高级工程师
工作单位：公安海警高等专科学校计算机教研室
通信地址：浙江省宁波市北仑区公安海警高等专科学校计算机教研室
邮政编码：315801
作者姓名：金梅
职称：主治医师
工作单位：宁波市第六人民医院内科
通信地址：浙江省宁波市第六人民医院内科
邮政编码：315040
