摘 要:通过该方法的应用,可以把数据库及有关文件压缩到含有空格的文件夹中,并且解决了由于 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.结束语
以上两种问题的解决办法未曾见到有关的报道,希望本文能对同行在软件设计时,在数据库的压缩过程中有所帮助。