Fórum Ler vários arquivos textos dentro de um diretório #341289

04/05/2007

0

Olá...
Dentro de um diretório tem diversos arquivos txt. Preciso ler dentro de um por um e ao terminar de ler preciso copiálo para outrro diretório, até acabarem os arquivo do diretório.

Eu não estou sabendo como faço para ler um arquivo após o outro...

Alguém poderia me ajudar?
Valeu!


José Alves

José Alves

Responder

Posts

04/05/2007

Massuda

Use as funções FindFirst/FindNext/FindClose (da unit SysUtils) para listar os arquivos *.txt da pasta; pesquise o fórum por essas funções que você deve achar vários exemplos.

Use a função CopyFile (da unit Windows) para copiar os arquivos.


Responder

Gostei + 0

04/05/2007

Fabiano Góes

amigo, um pequeno exemplo:

var
  SR: TSearchRec;
  i: integer;
begin
  Memo1.Lines.Clear;
  i := FindFirst(´c:\*.*´, faAnyFile, SR);
  while I = 0 do begin
    Memo1.Lines.Add(SR.Name);
    i := FindNext(SR);
  end; // while
end;


espero ter ajudado,
um grande abraço !!!!


Responder

Gostei + 0

04/05/2007

Fabiano Góes

onde está ´*.*´ troque por ´*.txt´ e da uma adaptada pra sua necessidade, qualquer duvida só postar !!!


Responder

Gostei + 0

04/05/2007

Adriano Santos

[quote:2d1506dbac=´Marcos Miranda Marcelino´]Olá...
Dentro de um diretório tem diversos arquivos txt. Preciso ler dentro de um por um e ao terminar de ler preciso copiálo para outrro diretório, até acabarem os arquivo do diretório.

Eu não estou sabendo como faço para ler um arquivo após o outro...

Alguém poderia me ajudar?
Valeu![/quote:2d1506dbac]
Dependendo do que precisa, tb pode usar um TFileListBox em tela apontando para o diretório que tem os txts. Ai é só dar um loop nos items do componente e fazer a leitura e cópia deles. Nos meus sistemas que tenho importação de arquivos texto eu faço isso. Depende da sua necessidade.


Responder

Gostei + 0

08/05/2007

José Alves

valeu pela atenção pessoal...

Deu 100¬ certo!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar