zipfiles.prg

foxpro连接sqlserver的例子

Func ZipFiles

thisform.text2.visible=.t.
thisform.text3.visible=.t.
thisform.label4.visible=.t.
thisform.text2.width=0
thisform.label4.caption="0% 完成"
if empty(thisform.text1.value)
	=messagebox("请输入正确的压缩文件名！",16,"信息提示")
	RETU .F.
endif

THISFORM.OZIP.FILESTOPROCESS="dat\*.dbf"+CHR(13)+;
			"tempback\*.dbf" 

thisform.oZIP.ZipFileName=allt(thisform.text1.value)

thisform.label5.caption="系统正在压缩数据，请等待......"
ZIPERR=THISFORM.oZIP.ADD(0)

If ZipErr = 0
	ZiplistErr=thisform.ozip.list
	if ziplisterr>0
		thisform.list1.additem("压缩包已刷新!")
	endif
	thisform.label5.caption=allt(THISFORM.COMBO1.DISPLAYVALUE)+"压缩完毕！"+"压缩包内共有";
		+allt(str(thisform.oZIP.FileCount))+"个文件。"
else
	thisform.label5.caption="压缩出现错误!"
EndIf

thisform.text2.visible=.f.
thisform.text3.visible=.f.
thisform.label4.visible=.f.