你知道MyFll.fll文件吗?没有的话可以在网上收一下.

函数名：Zip(cSourceFile,cZipFileName[,cPassword])
缩写：zip
压缩文件函数。支持通配符，如*.prg，*.fr?等，支持子文件夹。此算法使用开源的zlib和minizip。
注意：此函数将覆盖已存在的zip文件，使用前应检查zip文件是否存在。
返回值：
逻辑值，压缩成功，返回真。 
参数：
cSourceFile：字符型，准备压缩的文件列表，可以使用通配符，不同文件使用|分隔，只能使用相对路径，如果使用绝对路径，将产生不可预知后果。
示例：
当前文件夹下的所有文件：*.*
所有报表文件和data文件夹下的dbf文件：*.frx|*.frt|data\*.dbf
cZipFileName：字符型，要生成的压缩文件，比如Test.zip,可以使用相对路径或绝对路径。 
cPassword：字符型，可选，密码，默认无密码 
示例代码
Set Library To myFll

*压缩当前文件夹下的所有文件到d:\test1.zip
?Zip("*.*","d:\test1.zip")

*压缩当前文件夹下所有chm文件和fll文件到当前文件夹下的myfll.zip
?Zip("*.chm|*.fll","myfll.zip")

*压缩文件夹
?Zip("data","data.zip")

Set Library To 

假如你计算机中安装有WINRAR 举例如下:

"备份"按钮的CLICK代码

bflj=ALLTRIM(this.parent.text1.value)                 &&路径
bfwj=bflj+ALLTRIM(this.parent.text2.value)            &&路径+文件名
WshShell = CreateObject("WScript.Shell")
T1=WshShell.RegRead("HKCR\WinRAR\Shell\open\command\")&&搜索WINRAR所在位置
release WshShell
T1=SUBSTR(T1,2,AT('"',T1,2)-6)   && 保留纯WINRAR所在路径,去掉了引号"
cCmd=t1+" a -r "+bfwj+" @beifen.txt" &&压缩方式
RUN /N &cCmd                         &&开始压缩

注:有个前提,需关闭当前数据库及数据表,否则出错.