Jimi,
I tried the 32 bit OCX version and it worked :)

lcPath  = GetDir()
lnFiles = adir(arrFiles, lcPath+'*.*')
create cursor myCursor (FileName c(30), FileSize b)
append from array arrFiles
lcCompressedPath = sys(5)+curdir()+'test\'

with ThisForm.Olecontrol1
 scan 
	.InputFile = lcPath+FileName
	.OutPutFile = lcCompressedPath+'_LZ_'+FileName
	.Compress()
 endscan
 scan
 	.InputFile  = lcCompressedPath+'_LZ_'+FileName
 	.OutPutFile = lcCompressedPath+FileName 
	.DeCompress()
 endscan
endwith

Cetin

>Hi Cetin,
>
>I'm at the Gzip web site now(http://www.gzip.org/zlib/), it provides some .h source code in C++ format and .OCX libraries which it says is for win98/NT. But can I import any OCX into VFP to use? Or must the OCX be specially written for VFP? It's kinda hard to read those source code, I dunno whether I can use them or not.
>
>Also, what is the difference between DLL and OCX? There are OCX and DLL version of libraries, I dunno which should I take.
>
>Thanks for any help!!
>
>Jimi
>
>
>>>Hi all,
>>>
>>>Are there any class or build-in function of VFP6.0 supports file compression? I want to compress some DBF and Text files such that I can save a lota time when uploading data to server. I know I could use some 3rd party programs to do it, but it would be much better if I can just use VFP6.0 to finish the task.
>>>
>>>It is urgently needed, any help is greatly appreciated!
>>
>>Jimi,
>>AFAIK there is no VFP built-in function to do that.
>>Cetin