Monitorar arquivos em um diretório

[cainelli]

Caros colegas,

Estou adaptando meu programa de postos de gasolina para trabalhar com a automação da GBR (Antiga Gilbarco).
Ocorre q o programa deles - Cub2Text - gera arquivos TXT dos abastecimentos em um diretório com o seguinte padrão:

Os arquivos tem o nome BBHHMMSS (sendo BB=numero da bomba, HH=hora, MM=minuto,SS=segundos).

Gostaria de saber como poderia fazer para monitorar a criação destes arquivos no diretório, já q não tenho exatamente o nome do arquivo ?

Obrigado,

Marcello.

[filizola]

vc poderia esclarecer um pouco mais ??

[cainelli]

Vou tentar explicar melhor...
Suponha q dois carros abasteçam no posto neste momento, o cubtext vai gerar dois arquivos TXT com os dados dos abastecimentos:

01075502.TXT e 02075510.TXT, sendo BB=numero da bomba, HH=hora, MM=minuto,SS=segundos.

Serão sempre nomes diferentes, com base no horario + bomba.

Não sei como abrir estes arquivos para capturar os dados, já q não sei o nome deles.
Preciso de uma maneira de saber q o cubtext criou um arquivo e capturar o nome do mesmo para poder ler os dados com fread.

Obrigado,

Marcello.

[kiko]

primeiro de tudo, tenha certeza que nesse diretorio, todos os arquivos .TXT que serao gerados, sao referentes a abastecimentos, feito isso, vc pode rodar um DO WHILE .T. executando a funcao DIRECTORY("*.TXT")
essa funcao cria uma array com os arquivos TXT do diretorio, ai vc pode abrir eles com o nome dos itens da array

[filizola]

complementando o raciocinio do amigo do chaves, o kiko, vc pode ler o conteudo dos arquivos que estarao na matriz criada pela funcao directory() e depois apaga-los para que nao seja feita a leitura novamente.

[cainelli]

:{ Deu certinho!

mDiretorio:= Directory('C:\CUB\VENDAS\20020412\' + '*.TXT',"A")
mNomeArq:= 'C:\CUB\VENDAS\20020412\' + mDiretorio[1,1]

Obrigado aos colegas,

Marcello.