Fórum Ler vários arquivos textos dentro de um diretório #341289
04/05/2007
0
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
Curtir tópico
+ 0Posts
04/05/2007
Massuda
Use a função CopyFile (da unit Windows) para copiar os arquivos.
Gostei + 0
04/05/2007
Fabiano Góes
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 !!!!
Gostei + 0
04/05/2007
Fabiano Góes
Gostei + 0
04/05/2007
Adriano Santos
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.
Gostei + 0
08/05/2007
José Alves
Deu 100¬ certo!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)