(Resolvido) Pegar nomes de arquivos dentro de uma pasta

[Guest Visitante]

Como eu posso fazer para pegar os nomes dos arquivos .mdb que tem dentro de uma pasta? porque nesta pasta tem mais de um banco e eu quero por em um combobox para o usuário escolher a qual banco vai se conectar, mas teria que pegar o nome sem a extenão, lembrando que na pasta não tem somente arquivos .MDB, tem varios outros arquivos de outras extensoes

[Jhonas]

Como eu posso fazer para pegar os nomes dos arquivos .mdb que tem dentro de uma pasta?

Veja este post

http://scriptbrasil.com.br/forum/index.php...st&p=371767

Outros posts referentes ao assunto

http://scriptbrasil.com.br/forum/index.php...lite=opendialog

abraço

[Guest Visitante]

Bom Jhonas, eu tentei assim

function TForm1.GetFileList(const Path: string): TStringList;
 var
   I: Integer;
   SearchRec: TSearchRec;
 begin
   Result := TStringList.Create;
   try
     I := FindFirst(Path, 0, SearchRec);
     while I = 0 do
     begin
       Result.Add(SearchRec.Name);
       I := FindNext(SearchRec);
     end;
   except
     Result.Free;
     raise;
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Memo1.Lines := GetFileList('C:\MinhaPasta\*.mdb');

end;

Mas aparece o nome dos arquivos com a extensão no Memo e eu queria somente o nome dos arquivos.

[Jhonas]

Mas aparece o nome dos arquivos com a extensão no Memo e eu queria somente o nome dos arquivos.

Basta fazer esta alteração no codigo:

function TForm1.GetFileList(const Path: string): TStringList;
var
   I: Integer;
   SearchRec: TSearchRec;
begin
   Result := TStringList.Create;
   try
     I := FindFirst(Path, 0, SearchRec);
     while I = 0 do
     begin
       Result.Add(copy(SearchRec.Name,1,Pos('.',SearchRec.Name)-1));  // alterar esta linha
       I := FindNext(SearchRec);
     end;
   except
     Result.Free;
     raise;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines := GetFileList('C:\MinhaPasta\*.mdb');

end;

abraço

[Guest Visitante]

Excelente Jhonas, exatamente o que eu precisava.

Obrigado!!!

Problema Resolvido.