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.