Como fazer para saber c um arquivo esta aberto ou nao?

[juniorcamilo]

Como saber c um arquivo seje ele de qualquer tipo PRN, TXT, DBF .... c este esta aberto em outro terminal ?

[Maligno]

Tente abrí-lo em modo exclusivo. Se falhar, é porque ele já está aberto.

[sygecom]

IF USED("MEUDBF") // Resulta: .T.
@ 10,10 SAY "EM USO "
ENDIF
Obs: esse exemplo não é para outro terminal, e sim na mesma area corente

Abraços
Leonardo Machado

[Maligno]

IF USED("MEUDBF")

Isso não funciona com arquivos texto. Daí, acho mais interessante criar uma função genérica que abra (FOpen) arquivos de qualquer extensão no modo exclusivo. Funcionaria pra qualquer arquivo.

[sygecom]

Ops....é vero.....

[juniorcamilo]

IF USED("MEUDBF")

Isso não funciona com arquivos texto. Daí, acho mais interessante criar uma função genérica que abra (FOpen) arquivos de qualquer extensão no modo exclusivo. Funcionaria pra qualquer arquivo.

nao consegui com o fopen???? :(Neg não sei como fazer :'(

[Maligno]

Exemplo simples:

Código: Selecionar todos

if (nHandle := Fopen("ARQUIVO",16)) != -1
   // Abriu.
   // Então o arquivo está liberado.
   FClose(nHandle)
else
   // Não abriu.
   // Deve estar em uso.
   // Ou você errou o nome do arquivo.
end

Leia o NG para saber mais sobre os códigos dos modos de abertura. Usei o 16 (FO_EXCLUSIVE), que é para abertura em modo exclusivo.

[juniorcamilo]

Obrigado Maligno vou testar.....

[juniorcamilo]

Testei e Funcionou é isso ai.... Obrigado Maligno,,,, Valeuuu

Exemplo simples:

Código: Selecionar todos

if (nHandle := Fopen("ARQUIVO",16)) != -1
   // Abriu.
   // Então o arquivo está liberado.
   FClose(nHandle)
else
   // Não abriu.
   // Deve estar em uso.
   // Ou você errou o nome do arquivo.
end

Leia o NG para saber mais sobre os códigos dos modos de abertura. Usei o 16 (FO_EXCLUSIVE), que é para abertura em modo exclusivo.