Section courante

A propos

Section administrative du site

FINDFIRST

Trouve le premier
Free Pascal SysUtils

Syntaxe

Function FindFirst(Const Path:String;Attr:LongInt;Out Rslt:TSearchRec):LongInt;

Paramètres

Nom Description
Path 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 Description
faReadOnly Cette constante permet d'indiquer l'attribut de lecture seulement
faHidden Cette constante permet d'indiquer l'attribut caché
faSysFile Cette constante permet d'indiquer l'attribut système
faVolumeID Cette constante permet d'indiquer l'attribut de nom d'unité disque. Cette attribut n'est supporté que par Windows avec uniquement des partitions FAT (FAT12 ou FAT16).
faDirectory Cette constante permet d'indiquer l'attribut de nom de répertoire
faArchive Cette constante permet d'indiquer l'attribut d'archive
faAnyFile Cette constante permet d'indiquer l'attribut de n'importe quel fichier
Rslt Ce paramètre permet d'indiquer l'enregistrement contenant le résultat de la recherche. Voici les champs retourner :
Champ Type de données Description
Time LongInt Ce champ permet d'indiquer le temps du fichier.
Size Int64 Ce champ permet d'indiquer la taille du fichier.
Attr LongInt Ce champ permet d'indiquer les attributs du fichier.
Name TFilename Ce champ permet d'indiquer le nom du fichier (le dossier n'est pas inclus).
ExcludeAttr LongInt Ce champ permet d'indiquer les attributs étendues du fichier.
FindHandle Pointer Ce champ permet d'indiquer le gestionnaire interne du système d'exploitation (n'est pas utilisé).
Mode TMode Ce champ permet d'indiquer le mode du fichier UNIX. Ce champ est uniquement utilisé pour les systèmes d'exploitation de style UNIX.
PathOnly AnsiString Ce champ permet d'indiquer uniquement le dossier du fichier sans son nom ni son extension.

Retour

Valeur Description
0 Cette valeur permet d'indiquer qu'un autre enregistrement de résultat est disponible après celui-ci.
<> 0 Ces valeurs permettent d'indiquer qu'il n'y a plus d'autre enregistrement de disponible.

Description

Cette fonction permet de rechercher le premier occurrence (fichier ou répertoire) contenu dans un répertoire de fichier spécifié.

Remarques

Exemple

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

  1. Program FindFirstSamples;
  2.  
  3. Uses SysUtils;
  4.  
  5. Function FileExist(Const Name:String):Boolean;
  6. Var
  7.  Rec:TSearchRec;
  8. Begin
  9.  FileExist:=FindFirst(Name,faArchive,Rec) = 0;
  10.  FindClose(Rec);
  11. End;
  12.  
  13. BEGIN
  14.  Write('Le fichier C:\windows\system32\drivers\etc\hosts');
  15.  If FileExist('C:\windows\system32\drivers\etc\hosts')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:\windows\system32\drivers\etc\hosts existe
Le fichier C:\config.sys existe
Le fichier C:\gladir.txt n'existe pas

Voir également

Gladir.com - Langage de programmation - Free Pascal - Référence de procédures et fonctions - «FINDNEXT»

Dernière mise à jour : Samedi, le 18 juillet 2015