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