restaurando backup compactado

[Gelson]

Olá pessoal

Fiz uma rotina usando o LHA A para fazer meus backup, funcionou. porém tenho uma duvida na rotina de restauração

Fiz assim : ** backup **

run lha a copias c:\...\*.dbf
run backup c:\...\copias.lzh &drive:
return

Minha dúvida é a seguinte, peço para fazer a compactação dos DBF's e salvar como copias.lzh no diretório do programa.

e para restaurar fiz do seguinte modo :

run lha e c:\...\copias.lzh
run restore &drive: c:\...\*.*

Desde modo se o arquivo copias.lzh for deletado por engano do diretório meu backup não vai servir para nada, se eu usar o copy em vez de backup, quando meu arquivo copias.lzh for maior de 1.44mb não vai dar copias o arquivo para o disco.

Qual é a forma correta para se fazer esta rotina ?

[Gelson]

Olá, pessoal...

Resolvi meu problema da seguite forma, nos testes que fiz correu tudo bem.

Código: Selecionar todos

*
CLEAR
mresp = SPACE(1)
@10,05 SAY 'RESTAURAR ARQUIVOS - S OU N'
@10,33 GET mresp 
READ
IF mresp # 'S'
 RETURN
ENDIF
DO WHILE .T.
 drive = ' '
 @12,05 SAY 'INFORME O DRIVE - A OU B'
 @12,30 GET drive
 READ
 DO CASE
    CASE drive $ 'Aa' 
      EXIT
    CASE drive $ 'Bb'
      EXIT
 ENDCASE
ENDDO
RUN DEL C:\...\*.DBF
RUN RESTORE &drive: C:\...\*.* 
RUN LHA E  C:\...\COPIAS.LZH
CLEAR
@03,03 SAY 'AGUARDE POR FAVOR, REINDEXANDO ARQUIVOS'
SET TALK ON
USE CLIENTES INDEX ICLIENTE, INCLIENT
REINDEX
USE MOVIM INDEX IMOVIM, IMOVDOC,IMOVCON          
REINDEX
USE HISTOR INDEX IHISTOR
REINDEX
SET TALK OFF
RETURN 

=== Agora tenho um outro problema : Em um outro programa que estou tentando fazer quando peço para fazer o backup, ele não faz, o led do disquete nem acende, vejo que aparece um menssage mas muito rápido na tela do micro. Minha rotina esta correta pois usei a mesma em outro programa e funcionou. Tem como eu capturar esta msg que aparece muito rápido via comando ?