ayuda con filesearch

[cesarjbf]

alguien me puede explicar como se utiliza el filesearch???? gracias

[Investment]

En la ayuda de Delphi te viene un ejemplo claro de su uso.

 
procedure TForm1.Button4Click(Sender: TObject);
var
  FileToFind: string;
begin
  FileToFind := FileSearch(NombreArchivo.xxx', GetCurrentDir);
  if FileToFind = '' then
    ShowMessage('No se ha podido encontrar NombreArchivo.xxx')
  else
    ShowMessage('NombreArchivo.xxx');
end;

Le pasas a FileSearch un nombre de archivo y un directorio y si no lo encuentra la funcion no te devuelve nada.

Pruebalo.