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