Encontrar arquivo em uma pasta.

Question

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....

Vmlima · Answer

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.

Carlosrm · Answer

jmarcelo_8,bem mais modesta que a sugestão do vmlima (excelente!), lembro outra opção:[code:1:69f4f21a2e]procedure TForm1.Button1Click(Sender: TObject);begin  if fileExists(´c:windowssystem32notepad.exe´) then     showmessage(´Encontrei o Notepad!´)  else     showmessage(´Num tá aqui, não...´);end;[/code:1:69f4f21a2e]carlosrm...

Fórum Encontrar arquivo em uma pasta. #373459