estou tendo um problema com back-up
é o seguinte o back-up divide em dois diskets, inicio o back_up quando enche o primeiro disket vem o aviso para inserir o segundo disket, no windows 98 faz tudo normal, sem problema, sendo que no xp ele inicia o back-up e quando avisa para inserir o segundo disket, e colocado o segundo porem ao dar enter não termina o back-up em cada enter ele fica só dando aviso para inseriri o segundo disket, como eu posso resolver isto?
O Modulo de backup e restore e dentro do sistema.
vejam meu codigo e me digam o que posso fazer para o back-up funcionar no windows xp.
Código: Selecionar todos
*****************************************************************************
PROCEDURE SALVA
*****************************************************************************
TELASALVA=SAVESCREEN(00,00,24,79)
SET COLOR TO W+/N
CLOSE ALL
DO WHILE .T.
SET COLOR TO B+/B+
LIMPA(10,05,10,53)
SET COLOR TO W+/B+
@ 10,11 SAY " SIGA AS INSTRUCOES !"
SET COLOR TO N/W,
LIMPA(11,05,17,53)
@ 12,09 SAY "Coloque o diskete de Back-Up no Drive A"
@ 14,09 SAY "Tecle <Enter> quando Pronto !"
@ 16,09 SAY "A Memoria livre atual ‚ "+STR(MEMORY(2),3)+" KB"
INKEY(0)
SET COLOR TO
READ
IF LASTKEY()=27
RESTSCREEN(00,00,24,79,TELASALVA)
SET INTE ON
DO BRMEN
EXIT
ENDIF
IF MEMORY(2)=200
@ 12,08 SAY "Memoria insuficiente !"
INKEY(0)
RESTSCREEN(00,00,24,79,TELASALVA)
DO BRMEN
RETURN
ENDIF
IF .NOT. FILE('PKZIP.EXE')
LIMPA(12,05,16,54)
SET COLOR TO W+*/N
@ 12,08 SAY "Programa PKZIP.EXE nao Encontrado !"
INKEY(0)
SET COLOR TO
RESTSCREEN(00,00,24,79,TELASALVA)
DO BRMEN
SET INTE ON
EXIT
ENDIF
CLEAR SCREEN
@ 02,05 SAY "Back-Up dos Arquivos - SIGA AS INSTRUCOES !"
SET COLOR TO
@ 4,1 SAY " "
RUN PKZIP -& A:BKEST C:*.*
SET COLOR TO W+*/N
@ 22,54 SAY "F I M do processo ! "
SET COLOR TO
@ 23,50 SAY "** TECLE <ESC> PARA SAIR **"
INKEY(0)
SET COLOR TO
READ
IF LASTKEY()=27
RESTSCREEN(00,00,24,79,TELASALVA)
DO BRMEN
SET INTE ON
EXIT
ENDIF
ENDDO
SET INTE ON
*****************************************************************************
PROCEDURE RECUPERA
*****************************************************************************
TELARECUP=SAVESCREEN(00,00,24,79)
SET COLOR TO W+/N
DO WHILE .T.
SET COLOR TO B+/B+
LIMPA(10,04,10,53)
SET COLOR TO W+/B+
@ 10,11 SAY " SIGA AS INSTRUCOES !"
SET COLOR TO N/W,
LIMPA(11,04,16,53)
@ 12,05 SAY "Coloque o ultimo diskete de Back-Up no Drive A"
@ 14,05 SAY "Tecle <Enter> quando Pronto !"
INKEY(0)
READ
IF LASTKEY()=27
RESTSCREEN(00,00,24,79,TELARECUP)
SET INTE ON
DO BRMEN
EXIT
ENDIF
IF .NOT. FILE('PKUNZIP.EXE')
@ 08,02 SAY "Programa PKUNZIP.EXE nao Encontrado !"
EXIT
ENDIF
CLEAR SCREEN
SET COLOR TO N/W
@ 02,05 SAY "restauracao dos Arquivos - SIGA AS INSTRUCOES !"
SET COLOR TO
@ 4,1 SAY " "
RUN PKUNZIP A:BKEST
SET COLOR TO W+*/B+
@ 23,54 SAY "F I M do processo ! "
DO AZ
@ 23,50 SAY "** TECLE <ESC> PARA SAIR **"
INKEY(0)
READ
IF LASTKEY()=27
RESTSCREEN(00,00,24,79,TELARECUP)
SET INTE ON
DO BRMEN
EXIT
ENDIF
ENDDO
Ajudem-me por favor preciso que o back-up e restore funcione no xp, e infelismente tem que ser em disket, conto com a ajuda de vcs
------------------------------------
Nota da Moderação(Sygecom): Foi editado para colocar o codigo dentro da TAG [ CODE ]
