Olá pessoal.
No começo deste mês o colega Ponziano enviou uma função para compactação de
dados utilizando o Winzip para o Grupo FoxBrasil. Nos testes que realizei em meu computador funcionou sem problemas. No computador de um cliente a rotina não funciona.
Alguém teria alguma idéia de porque não estaria rodando. Utilizo Fox 7.0 E
Win ME (no cliente também tem Win ME).
Segue a Rotina:
***************************************************************
zarq="repr_"+trans(representante.codigo,"@L 99")+".zip "
elefile="???1???.txt"
frase=" -min -a -ex -p "+zarq+elefile
=shell("winzip",,frase)
FUNCTION Shell
LPARAMETER lcLink, lcAction, lcParms, lcDir
lcAction = IIF(EMPTY(lcAction), "Open", lcAction)
lcParms = IIF(EMPTY(lcParms), "", lcParms)
lcDir=IIF(empty(lcDir),"",lcDir)
DECLARE INTEGER ShellExecute ;
IN SHELL32.dll ;
INTEGER nWinHandle, ;
STRING cOperation, ;
STRING cFileName, ;
STRING cParameters, ;
STRING cDir, ;
INTEGER nShowWindow
DECLARE INTEGER FindWindow ;
IN WIN32API ;
STRING cNull,STRING cWinName
RETURN ShellExecute(FindWindow(0, _SCREEN.caption), ;
@lcAction, @lcLink, ;
@lcParms, @lcDir, 1)
***************************************************************
Qualquer ajuda agradeço.
[]s
Cláudio Maesi
claudiomaesi@yahoo.com.br