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