Section courante

A propos

Section administrative du site

FINDFIRST

Premier trouvé
Turbo Pascal 4+ DOS, WinDos

Syntaxe

Procedure FindFirst(nom_fich:String; attr:Word;resul:SearchRec); Version 4
Procedure FindFirst(nom_fich:PathStr; attr:Word;resul:SearchRec); Version 5 à 7

Paramètres

Nom Description
nom_fich Ce paramètre permet d'indiquer le nom du/des fichier(s) à rechercher
attr Ce paramètre permet d'indiquer l'attribut de recherche:
Constante Valeur Description
ReadOnly $0001 Cette constante permet d'indiquer l'attribut de lecture seulement
Hidden $0002 Cette constante permet d'indiquer l'attribut caché
SysFile $0004 Cette constante permet d'indiquer l'attribut système
VolumeID $0008 Cette constante permet d'indiquer l'attribut de nom d'unité disque
Directory $0010 Cette constante permet d'indiquer l'attribut de nom de répertoire
Archive $0020 Cette constante permet d'indiquer l'attribut d'archive
AnyFile $003F Cette constante permet d'indiquer l'attribut de n'importe quel fichier
resul Ce paramètre permet d'indiquer l'enregistrement contenant le résultat de la recherche

Description

Cette procédure permet de rechercher le premier occurrence (fichier ou répertoire) contenu dans un répertoire de fichier spécifier.

Remarques

Exemple

Voici un permettant de tester la présence de trois fichiers :

  1. Program FindFirstSamples;
  2.  
  3. Uses DOS;
  4.  
  5. Function FileExist(Const Name:String):Boolean;
  6. Var
  7.  Rec:SearchRec;
  8. Begin
  9.  FindFirst(Name,Archive,Rec);
  10.  FileExist:=DOSError = 0;
  11. End;
  12.  
  13. BEGIN
  14.  Write('Le fichier C:\TP\BIN\turbo.exe');
  15.  If FileExist('C:\TP\BIN\turbo.exe')Then WriteLn(' existe')
  16.                                     Else WriteLn(' n''existe pas');
  17.  Write('Le fichier C:\config.sys');
  18.  If FileExist('C:\config.sys')Then WriteLn(' existe')
  19.                               Else WriteLn(' n''existe pas');
  20.  Write('Le fichier C:\gladir.txt');
  21.  If FileExist('C:\gladir.txt')Then WriteLn(' existe')
  22.                               Else WriteLn(' n''existe pas');
  23. END.

on obtiendra le résultat semblable suivant :

Le fichier C:\TP\BIN\turbo.exe n'existe pas
Le fichier C:\config.sys existe
Le fichier C:\gladir.txt n'existe pas

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 179 à 180.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1233.

Dernière mise à jour : Dimanche, le 25 janvier 2015