ChkFile – Verifica existência de arquivo
Esta função abre um arquivo do sistema, em modo exclusivo ou compartilhado. Checa a existência do arquivo bem como dos índices, criando-os caso não existam.
Sintaxe
ChkFile – Verifica existência de arquivo ( [ cAlias], [ lExcl], [ cNewAlias], [ bCreateArq], [ uPar5], [ uPar6], [ uPar7], [ cSX2], [ lIndexOpen] ) –> lRet
Parâmetros/Elementos
| Nome | Tipo | Descrição | Obrigatório | Referência |
| cAlias | Caracter | Alias do arquivo a ser aberto. | ||
| lExcl | Lógico | Se for informado .T. o arquivo será aberto em modo exclusivo, caso contrário o arquivo será aberto em modo compartilhado. Default é .F. | ||
| cNewAlias | Caracter | Novo alias do arquivo. | ||
| bCreateArq | Bloco de código | Bloco de código a ser executado antes da criação da tabela, caso ela ainda não exista. | ||
| uPar5 | Qualquer | Não utilizado. | ||
| uPar6 | Qualquer | Não utilizado. | ||
| uPar7 | Qualquer | Não utilizado | ||
| cSX2 | Caracter | Alias da tabela SX2 quando o nome que está sendo utilizado for diferente de “SX2”. | ||
| lIndexOpen | Lógico | Determina se abre o índice da tabela. Default é .T. |
Retorno
lRet(logico)
- Retorna verdadeiro (.T.) caso tenha conseguido abrir o arquivo e falso (.F.) caso contrário.
Observações
Observação:
– Sempre que desejar mudar o modo de acesso do arquivo (de compartilhado para exclusivo ou vice-versa) feche-o antes de chamae a função ChkFile.
– Esta função sempre retorna verdadeiro se o arquivo já estiver aberto;
– Esta função sempre retorna falso se o alias não tiver sido informado.
Exemplo
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
User Function TESTE Local lOk := .T. Local nResp := 0 dbSelectArea("SA1") dbCloseArea() 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 |