Encontrar arquivo em uma pasta.

Delphi

12/08/2009

Elá pessoal estou precisando ver se um determinado arquivo existe dentro de uma pasta.
Será que alguem pode me dar uma dica como faço isso.

Muito obrigado.


Jmarcelo_8

Jmarcelo_8

Curtidas 0

Respostas

Vmlima

Vmlima

12/08/2009

Olá, esse procedimento pega todos os arquivos de um diretório e os joga em um stringlist, eu adaptei para mostrar uma mensagem se o nome do arquivo for encontrado.

procedure TF_GeraArquivoEstoque.FindAll (const Path: String; Attr: Integer; List: TStringList) ;
var
   Res: TSearchRec;
   EOFound: Boolean;
begin
   EOFound:= False;
   if FindFirst(Path, Attr, Res) < 0 then
     exit
   else
     while not EOFound do begin
       List.Add(Res.Name) ;
      if (Res.Name = ´nomeprocurado.txt´) then showmessage(´encontrou´); 
      EOFound := FindNext(Res) <> 0;
     end;
   FindClose(Res) ;
end;


Seu uso
FindAll(´c:\´, faAnyFile, strArquivos);
onde strArquivos é um stringlist qualquer e faAnyFile, quer dizer qualquer arquivo ou diretorio.


att.


GOSTEI 0
Carlosrm

Carlosrm

12/08/2009

jmarcelo_8,

bem mais modesta que a sugestão do vmlima (excelente!), lembro outra opção:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if fileExists(´c:\windows\system32\notepad.exe´) then
     showmessage(´Encontrei o Notepad!´)
  else
     showmessage(´Num tá aqui, não...´);
end;


carlosrm


GOSTEI 0
POSTAR