Pascal / dos / FindFirst

AddDisk, DiskFree, DiskSize, DosExitCode, DosVersion, DTToUnixDate, EnvCount, EnvStr, Exec, FExpand, FindClose, � FindFirst, FindNext, FSearch, FSplit, GetCBreak, GetDate, GetEnv, GetFAttr, GetFTime, GetIntVec, GetLongName, GetMsCount, GetShortName, GetTime, GetVerify, Intr, Keep, MSDos, PackTime, SetCBreak, SetDate, SetFAttr, SetFTime, SetIntVec, SetTime, SetVerify, SwapVectors, UnixDateToDt, UnpackTime, weekday,

Funcion: FindFirst()
Sintaxis:

procedure FindFirst(
 
  const path: PathStr;
 
  attr: Word

Descripcion: Inicia una busqueda por uno o mas archivos, especificando el path.

Observacion: Sobre OS/2, tu no puedes usar dos diferentes llamadas al a funcion. Esto quiere decir que tu deber cerrar la primera llamada antes de iniciar una nueva (con FindClose).
Ejemplo:

Program Example7;
uses Dos;
 
{ Program to demonstrate the FindFirst and FindNext function. }
 
var
  Dir : SearchRec;
begin
  FindFirst('*.*',archive,Dir);
  WriteLn('FileName'+Space(32),'FileSize':9);
  while (DosError=0) do
   begin
     Writeln(Dir.Name+Space(40-Length(Dir.Name)),Dir.Size:9);
     FindNext(Dir);
   end;
  FindClose(Dir);
end.

Librerias Pascal

Libreria crt - CRT - Pantalla y teclado del PASCAL de Turbo que maneja la unidad
Libreria dos - DOS - Interface Turbo Pascal MS-DOS
Libreria Graph - Unidad para manipular los graficos de la pantalla compatible con TP
Libreria Objects - Objetos basicos compatible con TP
Libreria math - Rutinas adicionales matematicas
Libreria Printer - Provee de acceso a la impresora
Libreria strings - Rutinas para el manejo de cadenas
Libreria BaseUnix - Funcionalidad Basica de Linux
Libreria System - Manejo de Archivos - Funciones para la manipulacion de archivos en Pascal