Código: Selecionar todos
EXECUTA=SWPRUNCMD("ARJ A \BR\BACKUP\BRBACKUP.001 -VA -V1200 -X\BR\MOV\FEC\*.* -X*.EXE -XTEMP*.* -X*.CDX -XBRBACKUP.* -R -Y >NUL")
IF EXECUTA=.F.
@ 11,26 SAY "***** Mensagem *****"
@ 12,10 SAY " Erro : Problemas na execucao. Contate o Suporte " COLOR "GR+*/B+"
TONE(421,2)
TONE(584,3)
INKEY(0)
RESTORE SCRE FROM BACKUP
RETURN
ENDIF
Código: Selecionar todos
EXECUTA=SWPRUNCMD("ARJ X \BR\RESTAU\BRBACKUP.001 -VA -V1200 -R -Y >NUL")
IF EXECUTA=.F.
@ 11,26 SAY "***** Mensagem *****"
@ 12,10 SAY "Erro : Problemas na execucao. Contate o Suporte" COLOR "B/GR+*"
TONE(421,2)
TONE(584,3)
INKEY(0)
RESTORE SCRE FROM BACKUP
RETURN
ENDIF