Insufficient Stack Space

I have a backup procedure, as follow:


OSHELL = CREATEOBJECT("WSCRIPT.SHELL")
SCAN
DESTINO = DIRDEST + ALLTRIM(ARQUIVO)
DESTINO1 = DESTINO + [.ZIP]
IF EXISTE("&DESTINO1")
=DELETEMP("&DESTINO1")
ENDIF
EXEC = 'WZZIP -whs ' + IIF(THISFORM.COMBOMODO.VALUE=[NADA],'',ALLTRIM(FRMPRIN.COMBOMODO.VALUE)) + [ ] + iif(recursivo,[-EXPR ],[-EXP ]) + [-X@] + MVAR7 + [ ] + DESTINO + ' ' + ALLTRIM(DIRETORIO) + ALLTRIM(MASCARA)

OSHELL.RUN('&EXEC',2,.T.)
ENDSCAN


The complete backup has about 280 files and now i receive the message error


Insufficient Stack Space


Anyone have a idea?


trevisol