>>>>I was wondering if there is a cheap or free active x control, dll, or fll files that does compression from inside vfp without having to do a run comm and? Is there any utilities like this out there?
>>>
>>>DynaZip, by Inner Media, is about $250 - $300. I don't know what would be cheaper. Inner Media actually supports its use in vfp, which I gather is very unusual for such things. The costs of looking around and fiddling with controls that might not work could be greater. The one e-mail I needed to send to Inner Media tech support was answered a day later by someone who knew vfp.
>>
>>
>>I use WINZIP32 in my applications. Single user copy is ~$29 and the price goes down if you are buying site license copies. You can use API calls to execute winzip and pass whatever parameters that you need to. I can send some code examples for calling winzip from FPW 2.x and VFP if anyone wants to go that route.
>>
>>I've never used DynaZip but it seems to be popular solution.
>>
>>Fred Lauckner
>><>
>
>I thought WinZip 6.3 had a very limited set of command line parameters that left out important things like disk spanning.
>
>I'd be interested to see those code samples, just for the sake of learning more about API calls.

I've never tried to span disks with WinZip32 because we tranfer files across a very slow WAN. I know you can do the basics, create, add, extract, overwrite and remove path info and that's all use.

E - Extract
O - Overwrite
J - throw path info away


Under FPW 2.x
******************************
SET LIbrary to sys(2004)+'FoxTools' additive

winexec = regfn("WINEXEC","CI","I")

*
lcstring = 'c:\progra~1\winzip\winzip32.exe -a ' + ;
' J:\app\foxpro\time50\dev\output '+;
' J:\app\foxpro\time50\dev\prgs\*.* '

lnreturn = callfn(winexec,lcstring,0)

IF lnreturn<33
wait window " WinZip Failed return value "+ALLTRIM(STR(lnreturn))+'. '
ELSE
wait window " WinZip Running with value "+ALLTRIM(STR(lnreturn))+'. '
ENDIF

**********************************

VFP && Got this code from anotehr programmer

LPARA cmdl
* UINT WinExec(
* LPCSTR lpszCmdLime, // address of command line
* UINT fuCmdShow // Window Style for new application
* )

declare long WinExec in kernel32.dll string lpszCmdLime, integer fuCmdShow

if type('cmdl')#"C"
cmdl = 'c:\progra~1\winzip\winzip32.exe -a ' + ;
' J:\app\foxpro\time50\dev\output '+;
' J:\app\foxpro\time50\dev\prgs\*.* '
endif

ret = Winexec(@cmdl,0)

?ret

Fred Lauckner

You know, it works on my computer. I don't know what your problem is.

.Net aint so bad.