Quantidade de Arquivos Abertos.

[hudson]

Como fazer para saber quantos arquivos estão abertos no programa, com o objetivo de reparar o sistema que está abrindo um novo arquivo a medida que os ítens de uma venda vai acontecendo(frente de loja) e estoura os FILES estabelecidos.

[josenilson]

Utilize as funções FilesFree() e FilesMax() da CA-Tools


FilesMax() -> Retorna a qtde máxima de arquivos que podem ser abertos (aquela definida no config.sys)

FilesFree() -> Retorna a qtde de arquivos livres, ou seja, que ainda poderão ser abertos. Exemplo:

If FilesFree() >= 2
Use ArqDbf1 New
Use ArqDbf2 New
Else
? "Não posso abrir estes dois arquivos!!!"
Endif