Esse método insere a lista de arquivos contidos em ASource na stringlist
ADirList. No final, a lista de nomes é ordenada.
procedure ListarDiretorio(ASource: string; ADirList: TStringList);
var
SearchRec : TSearchRec;
Result : integer;
begin
Result := FindFirst( ASource, faAnyFile, SearchRec );
if Result = 0 then
while (Result = 0) do begin
if (SearchRec.Name + ' ')[1] = '.' then begin
Result := FindNext( SearchRec );
Continue;
end;
ADirList.Add( SearchRec.Name );
Result := FindNext( SearchRec );
end;
FindClose( SearchRec );
ADirList.Sort;
end;
Roger escreveu:
>Prezados,
>
>Alguém conhece alguma função que retorne a lista de arquivos de uma
>determinada pasta?
>A idéia seria adicionar os nomes de arquivos num array (por exemplo).
>O ponto é que não seria nada visual.
>
>Se alguém tiver alguma dica ou a resposta, agradeço.
>
>Abraço,
>
>Rogério.
>
>
>
>
>
>
--
Atenciosamente
_______________________________________________________
Giovani Benedetti Penha
Coordenador de Projetos de TI
Veltrac Rastreadores de Veículos Ltda.
e-mail: [EMAIL PROTECTED]
Tel: (43) 2105-5041 / Cel: (43) 9117-5181
Av. Celso Garcia Cid, 1451
Londrina - Paraná
www.veltrac.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
