findfirst

(procedimiento)
Lenguaje: Pascal   (Versión: Turbo Pascal)

Busca el primer fichero que cumpla una condición

Declaración: procedure FindFirst(Path: string; Attr: Word; var F: SearchRec);

Detalles:
Busca en el directorio especificado (o en el actual) el primer fichero que cumpla con el nombre de fichero y los atributos que se indican.

Ejemplo:
uses Dos;
 
var
  DirInfo: SearchRec;
begin
  FindFirst('*.PAS', Archive, DirInfo); { Igual que DIR *.PAS }
  while DosError = 0 do
  begin
    Writeln(DirInfo.Name);
    FindNext(DirInfo);
  end;
end.

Órdenes relacionadas:   findnext  


  Volver al índice de la referencia o al apartado de Pascal