Pular para o conteúdo
Início » Advpl ChkFile

Advpl ChkFile

ChkFile

Tipo: Processamento

Abre um arquivo do sistema, em modo exclusivo ou compartilhado, verificando a sua existência bem como dos índices, criando-os caso não existam. Esta função retorna verdadeiro (.T.) se o arquivo já estiver aberto ou se o Alias não for informado. Sempre que desejar mudar o modo de acesso do arquivo (de compartilhado para exclusivo ou vice-versa), feche-o antes de chamá-la.

Sintaxe

ChkFile(cAlias,lExcl,newAlias)

Parâmetros

cAlias – Alias do arquivo a ser aberto.

lExcl – Se for informado verdadeiro (.T.), o arquivo será aberto em modo

exclusivo, caso contrário, o arquivo será aberto em modo compar-tilhado.

Se este parâmetro não for informado, será assumido falso (.F.).

newAlis – Abre o arquivo com outro apelido.

Retorna

lRet – Retorna verdadeiro (.T.) caso tenha conseguido abrir o arquivo e falso (.F.) caso contrário.

Exemplo

// Exemplo de uso da função ChkFile:

// Tenta abrir o arquivo de clientes como exclusivo:

dbSelectArea(“SA1”)

dbCloseArea()

lOk := .T.

While .T.

IF !ChkFile(“SA1”,.T.)

nResp := Alert(“Outro usuario usando! Tenta de novo?”,{“Sim”,”Nao”})

If nResp == 2

lOk := .F.

Exit

Endif

:

Endif

EndDo

If lOk

// Faz o processamento com o arquivo…

Endif

// Finaliza

If Select(“SA1”)

dbCloseArea()

Endif

ChkFile(“SA1”,.F.)

Return

Estude para provas de certificações em TI com os simulados Bynem

Veja também: