Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Jerfs

Criação de TXT

Recommended Posts

Caras seguinte, preciso criar um txt baseado no conteúdo de um diretório nem sei por onde começar... na realidade eu comecei mas nem sei se estou indo no caminho correto. Primeiramente eu tenho as duas letras que todos os arquivos devem ter para ser inserido dentro do txt, por exemplo:

 

radical = 00;

 

Todos os arquivos que iniciem com "00" terão de ser inseridos no txt. Então entendo que o ponto que está me empacando é pesquisar dentro do diretório. Teria alguma forma de fazer isso simples?

 

Aguardo resposta! :unsure:

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ae para quem um dia precisar desses comandos, segue:

 

CODE

 

if FindFirst('temp/grupo*.tmp', faAnyFile, searchResult) = 0 then // quando retorna "0", significa que encontrou arquivo

Begin

repeat // isso significa que repetirá até retornar <>0 (não encontrar mais arquivo)

deleteFile('temp/'+searchResult.Name);

until FindNext(searchResult) <> 0;

FindClose(searchResult);

End;

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.