Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
766 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Récupérer le nom des fichiers d'un répertoire

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Récupérer le nom des fichiers d'un répertoire

n°392469
manuhard
Le bois ne rend pas les coups
Posté le 13-05-2003 à 18:07:27  profilanswer
 

Je souhaiterais scanner un répertoire et récupérer tous les noms des fichiers contenus dans celui-ci.
 
Merci d'avance de votre aide.

mood
Publicité
Posté le 13-05-2003 à 18:07:27  profilanswer
 

n°392853
zion
Plop
Posté le 14-05-2003 à 03:10:31  profilanswer
 


FindFirst -> F1
T'as un exemple bien documenté
 
 

Citation :

The following example uses an edit control, a button, a string grid, and seven check boxes. The check boxes correspond to the seven possible file attributes. When the button is clicked, the path specified in the edit control is searched for files matching the checked file attributes. The names and sizes of the matching files are inserted into the string grid.
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  StringGrid1.RowCount := 1;
  if CheckBox1.Checked then
    FileAttrs := faReadOnly
  else
    FileAttrs := 0;
  if CheckBox2.Checked then
    FileAttrs := FileAttrs + faHidden;
  if CheckBox3.Checked then
    FileAttrs := FileAttrs + faSysFile;
  if CheckBox4.Checked then
    FileAttrs := FileAttrs + faVolumeID;
  if CheckBox5.Checked then
 
    FileAttrs := FileAttrs + faDirectory;
  if CheckBox6.Checked then
    FileAttrs := FileAttrs + faArchive;
  if CheckBox7.Checked then
 
    FileAttrs := FileAttrs + faAnyFile;
 
  with StringGrid1 do
  begin
    RowCount := 0;
 
    if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
 
    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
        RowCount := RowCount + 1;
        Cells[1,RowCount-1] := sr.Name;
        Cells[2,RowCount-1] := IntToStr(sr.Size);
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
  end;
end;

 
 
 :hello:


---------------
Informaticien.be - Lancez des défis à vos amis

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Récupérer le nom des fichiers d'un répertoire

 

Sujets relatifs
Récupérer les éléments d'une chaine[MFC]Fichiers ini et cast intempestifs
[PHP] recuperer l'expression d'un agregat avec oracle 8[perl] Connaitre la taille d'un répertoire, comment ?
[Delphi] Récupérer la taille d'un (gros) fichierdefinir les acces aux fichiers
[PHP] nombre de fichiers ds un rep...get current workind directory --> j'obtiens un repertoire bizarre
Récuperer la taille des dossiers pour examiner l'evolutionVB6 - Récupérer la liste des fichiers d'un répertoire donné
Plus de sujets relatifs à : Récupérer le nom des fichiers d'un répertoire


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR