Verificar disco no 1.44

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
matrix
Usuário Nível 3
Usuário Nível 3
Mensagens: 131
Registrado em: 06 Jul 2004 08:41
Localização: Paraná
Contato:

Verificar disco no 1.44

Mensagem por matrix »

estou usando:
!arj a -va a:backup.arj c:\teste\arqs\*.dbf c:\teste1\*.dbf

mas gostaria de antes de tudo verificar se o disco está no drive, tem como??

Agradeço.
"Ter Problemas é Inevitável, ser derrotado por eles é opcional.!!"
Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1297
Registrado em: 06 Jul 2004 00:44
Contato:

Re: Verificar disco no 1.44

Mensagem por ANDRIL »

matrix escreveu:estou usando:
!arj a -va a:backup.arj c:\teste\arqs\*.dbf c:\teste1\*.dbf

mas gostaria de antes de tudo verificar se o disco está no drive, tem como??

Agradeço.
Ola matrix,

Tente a função Fcreate() para tentar gravar um arquivo no drive. Se a operação for mal sucedida indica problema com o drive.

hand1=fcreate("A:\VAZIO.TXT")

if hand1<0
wait"Unidade inválida ou sem disquete!"
inkey(0)
endif
fclose(hand1) // fecha o handle que foi aberto e libera a porta acessada

Abraços
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1297
Registrado em: 06 Jul 2004 00:44
Contato:

Re: Verificar disco no 1.44

Mensagem por ANDRIL »

matrix escreveu:estou usando:
!arj a -va a:backup.arj c:\teste\arqs\*.dbf c:\teste1\*.dbf

mas gostaria de antes de tudo verificar se o disco está no drive, tem como??

Agradeço.
Tente este exemplo:

hand1=fcreate("A:\TESTE.TXT")
if hand1<0
WAIT"Unidade inválida ou sem disquete!"
inkey(0)
endif
fclose(hand1) //libera o drive

Abraços
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
matrix
Usuário Nível 3
Usuário Nível 3
Mensagens: 131
Registrado em: 06 Jul 2004 08:41
Localização: Paraná
Contato:

Mensagem por matrix »

Valeu, ficou legal.

Abraço.
"Ter Problemas é Inevitável, ser derrotado por eles é opcional.!!"
Responder