If Empty(thisform.pageframe1.page1.text1.value)
    = Messagebox("请选择需要备份的目录后，再开始备份！",0+64,"系统提示")
    Return
Endif
If Empty(thisform.pageframe1.page1.text3.value)
    = Messagebox("请指定文件存放目录后，再开始备份！",0+64,"系统提示")
    Return
Endif
 CLOSE DATABASES
 
CommChr = "WinRAR.exe a - r" + thisform.pageframe1.page1.text3.value+;
thisform.pageframe1.page1.text2.value + Space(1)+;
thisform.pageframe1.page1.text1.value + "\*.*"
Run /N7 &Commchr
= Messagebox("指定目录下的所有文件及目录已全部备份成功！",0+64,"系统提示")


总是提示：文件名，目录名或卷标语法不正确，无法创建。

检查commchr的值，看看是否符合要求。

这样可以吗：
Run /N7 "&Commchr"
或：
Run /N7 [&Commchr]
不可以的话就不能用RUN命令了，可用API ShellExecute 或 ShellExecuteEx

你是要在备份时生成一个压缩包？

  RUN /n7 winrar.exe a -ibck -ep1 -r -k -o+ -y &cdlmc..rar .\&cdlmc.\*.*    &&&&调用WinRAR将目录（&cdlmc.）中的文件进行压缩
还需要把　winrar.exe  rarext.dll　二个文件拷贝到当前目录中

*!*      *注释
*!*      *VFP中压缩工具WinRAR的调用  作者:sibill 日期:2008-11-07

*!*    压缩：
*!*      Delete FILE bak.jhz
*!*      RUN /N7 WinRAR.exe a -ibck -r -k -o+ -y -hp123 -p123 bak.jhz dbf\*.*
*!*    或 RUN /N7 WinRAR.exe a -ibck -r -o+ -y -hp123 -p123 bak.jhz dbf\*.*
*!*    或 RUN /N7 WinRAR.exe a -ibck -ep1 -r -o+ -y -hp123 -p123 bak.jhz dbf\*.*

*!*    解压：
*!*      RUN /N7 WinRAR.exe x -ibck -r -k -o+ -y -hp123 -p123 bak.jhz dbf\*.*
*!*    或 RUN /N7 WinRAR.exe x -ibck -r -o+ -y -hp123 -p123 bak.jhz dbf\*.*

*!*    参数说明：
*!*    a：添加到档案文件中
*!*    x：从档案文件中全路径释放文件
*!*    -ibck：后台运行WinRAR
*!*    -ep1：根据名字删除底层目录。不存储在命令行中输入的路径
*!*    -r：连同子文件夹操作
*!*    -k：锁定档案文件
*!*    -o+：覆盖已经存在的文件
*!*    -y：对所有询问均回应为“是”
*!*    -hp123：加密文件数据和文件头,密码为123
*!*    -p123：设置密码为123,此密码上一个密码可以不一样
*!*    bak.jhz：压缩后的文件名或要解压的文件（.jhz为自定义扩展名）
*!*    dbf\*.*：要压缩的文件或要解压到的文件位置
  


以上内容是2008年为写代码，从网上找来的。
5楼的那一句是我程序中在用的。一直是很顺利的

[此贴子已经被作者于2016-5-25 08:51编辑过]

现在 Win 7(+) 都自带压缩/减压的功能，没有必要再调用外部的第三方程序

可以用 oShell = Createobject("Shell.Application") 直接引用

*!*    ******************************************
*!*    功  能：压缩文件函数。支持通配符，如*.prg，*.fr?等，支持子文件夹。
*!*            注意：此函数将覆盖已存在的zip文件，使用前应检查zip文件是否存在。
*!*    函数名：Zip(cSourceFile,cZipFileName[,cPassword])
*!*    返回值：逻辑值，压缩成功，返回真。
*!*    参  数：cSourceFile：字符型，准备压缩的文件列表，可以使用通配符，
*!*            不同文件使用|分隔，推荐使用相对路径，可以保存相对的路径信息，
*!*            如果使用绝对路径，则所有路径信息会被删除。
*!*            cZipFileName：字符型，要生成的压缩文件，比如Test.zip，可以使用相对路径或绝对路径。
*!*    类  型：字符型。
*!*    默认值：无。
*!*    示  例：lcZip = Zip("C:\temp\", "C:\Test.ZIP")  && 压缩C:\temp\所有文件所到C:\Test.ZIP
*!*    ******************************************
Function Zip(cSourceFile As String, cZipFileName As String)


*!*    ******************************************
*!*    功  能：解压缩单个文件。
*!*    函数名：UnZip(cZipFileName, cDestination)
*!*    返回值：逻辑值，压缩成功，返回真。
*!*    参  数：cZipFileName：字符型，待解压的Zip文件名
*!*            cDestination：字符型，在zip中要解压的文件名
*!*    类  型：字符型。
*!*    默认值：无。
*!*    示  例：lcUnZip = UnZip("C:\Test.ZIP", "C:\Temp\")  && 解压缩C:\Test.ZIP所有文件所到C:\temp\
*!*    ******************************************
Function UnZip(cZipFileName As String, cDestination As String)

如果需要，我贴出源码。

需要，请给你源码学习学习！谢谢~！

这里好像有：
http://www.