Eu já fiz algo parecido usando os seguintes componentes:
- DriveComboBox pra escolher o drive(c:, d:) onde estão os arquivos
- DirectoryListBox pra listar as pastas do drive escolhido
- FilterComboBox pra filtrar o tipo de arquivo. No seu caso .txt
- FileListBox pra listar todos os arquivos de aco
Bom dia!
Tente o seguinte código:
[code]
procedure BuscaArqs(Pasta: string; Extensao: String; Arqs: TStringList);
var
Achou: Integer;
Rec: TSearchRec;
begin
Pasta := IncludeTrailingPathDelimiter(Pasta);
if Length( Extensao ) <> 0 then
Achou := FindFirst( Pasta + Extensao, 0, Rec )
Com sei a quantidade de arquivos do tipo txt numa pasta?
[As partes desta mensagem que não continham texto foram removidas]
3 matches
Mail list logo