Liste de fichiers avec FindFirst

Question

Bonjour,
Voici un probl&#232;me que je rencontre avec FindFirst.
J'ai &#233;crit un code qui recherche si un fichier quelconque, ayant une extension particuli&#232;re dans un r&#233;pertoire donn&#233;, existe.
en gros voici la ligne de code

if FindFirst(Repertoire+'Outil\*.OUT',faAnyFile,Dirinfo)=0 then
begin
   texte:=dirinfo.name;
   etc....
end else message erreur ....

je pensais que cette fonction ne trouverais que les fichiers ayant une extension .OUT puisque dans le Path de findfirst j'ai mis *.OUT. Hors lorsque j'ai test&#233; la fonction, j'avais dans le r&#233;pertoire un seul fichier ABC.OUT. Findfirst me trouve bien le fichier. J'ai voulu ensuite test&#233; l'affichage de mon message d'erreur, j'ai alors renomm&#233; le fichier ABC.OUT en ABC.OUT2
et l&#224; chose bizarre qui a sans doute une explication mais que je ne connais pas Findfirst ne m'affiche pas le message d'erreur mais fait comme ci il avait trouv&#233; un fichier ayant l'extension .OUT alors qu'il n'y en a pas puisque le fichier s'appelle alors ABC.OUT2. En passant par le debugger la variable texte prend bien le nom du fichier ABC.OUT2 alors que cela ne devrait pas &#234;tre possible. (findfirst avec une recherche *.OUT me fait en fait une recherche *.OUT*)
 J'ai fait ensuite les m&#234;mes tests mais en changeant l'extension des fichiers et de la recherche.
dans le r&#233;pertoire j'ai mis un fichier et un seul ABC.OU et j'ai mis dans finsfirst *.OU
findfirst trouve le fichier => normal.
j'ai renomm&#233; le fichier en ABC.OU1 et l&#224; findfirst ne trouve plus de fichier *.OU et m'affiche le message d'erreur. Donc ici cela fonctionne comme je le souhaitais. Je me suis alors dit qu'au del&#224; de 3 caract&#232;res apr&#232;s le point findfirst ne tient plus compte de rien. J'ai refais un test avec un fichier qui s'appelle ABC.OUTS et une recherche findfirst avec *.OUTS. L&#224; findsfirst trouve le fichier => normal. J'ai renomm&#233; le fichier en ABC.OUTS1 et l&#224; mon message d'erreur s'affiche, findfirst ne trouve pas de fichier. Cela fonctionne comme cela devrait. 

2 questions:
    Pourquoi findfirst ne fonctionne pas correctement lorsque je fais une recherche avec 3 caract&#232;res apr&#232;s le point?

    Peut &#234;tre que findfirst a une origine dos, dans ce cas y a t-il une fonction identique &#224; findfirst mais qui g&#232;re les noms dit long?

Merci de vos r&#233;ponses

Francky23012301 · Answer

Salut


Findfirtst est une synthaxe Pascal et non Delphi.
 
Autre point, le probl&#232;me ne vient pas du nombre de caract&#232;res apr&#232;s l'extension : la preuve tu as fait un test et cela marche. Alors d'ou vient l'erreur ?? d&#233;j&#224; il faudrait le code dans son ensemble pour dire. Ensuite as tu ferm&#233; ton application avec ton test pour  ABC.OUT2
? Sinon fais  un test avec  ABC.OUT puis ferme l'appli. Cr&#233;er ABC.OUT2 puis FERME LE et relance ton appli et regarde ce que tu obtients.

Bon Prog a+

cs_philpas · Answer

Salut,
Pour &#234;tre sur que je n'ai pas un bug cach&#233; dans mon programme, j'en ai fait un autre avec seulement les instructions suivante. Je n'ai qu'une fiche avec un bouton
voici le programme:

procedure TForm1.Button1Click(Sender: TObject);
var Dirinfo:TSearchRec;
    texte:String;
begin
  if FindFirst('D:\Mes Documents\*.OUT',faAnyFile,Dirinfo)=0 then
  begin
    Texte:=Dirinfo.Name;
    MessageDlg('je vois le fichier Outil: '+Texte,mtInformation,[mbOK],0)
  end else MessageDlg('je ne vois pas le fichier Outil',mtError,[mbOK],0);
end;

j'ai refais tous les tests pr&#233;cedents, en fermant et en relan&#231;ant l'application j'ai toujours ce ph&#233;nom&#232;ne. Que mon fichier s'appelle ABC.OUT ou ABC.OUT2 ou m&#234;me ABC.OUT2222222222, j'ai toujours le message "je vois le fichier outil ABC.OUT ou OUT2 ou OUT2222222222" 
Findfirst me fait une recherche de type *.OUT* au lieu de *.OUT
(j'utilise delphi6 perso mais m&#234;me la version 2005 perso c'est pareil)


Findfirst est une syntaxe pascal et non delphi. Qu'elle est la syntaxe &#233;quivalente en delphi?

Francky23012301 · Answer

Salut

Delphi est l'hériier du Pascal : donc tu peux utiliser findfirst. Maintenant est ce qu'il y a une traduction spéciale pour delphi, je ne crois pas. 

Ce que je te conseille, c'est de regarder sur Google les paramêtres de Findfirst. Sache aussi qu'il exite des fonctions nextfind ect ect. En cherchant je pense que tu trouveras le pk du comment ? (désolé je n'ai pas Delphi sous les yeux d'ou ma réponse).

Allez accroche toi

Bonne prog. :)

cs_philpas · Answer

Merci francky, je vais explorer le net et essayer de trouver le pourquoi de cette anomalie et si je trouve je mettrais la r&#233;ponse.

Francky23012301 · Answer

Regarde : http://pascal.developpez.com/faq/?page=Pg_FAQ_Files#FichierExiste

Je pense que tu va trouver ton bonheur

Salut

cs_philpas · Answer

oui je l'avais trouv&#233; cette page l&#224;. mais elle concerne le langage pascal pas delphi. Et je ne vois pas o&#249; est mon probl&#232;me car ma structure findfirst est 
correct.

j'ai ecrit le programme en turbo pascal. j'ai le m&#234;me probl&#232;me mais l&#224; c'est normal car turbo pascal ne g&#232;re pas les noms longs c'est pour cela que ta page propose une unit&#233; pour g&#233;rer les noms longs (et je n'ai plus envi de programmer en Turbo pascal)


Je peux toujours test&#233; le nom du fichier que findfirst me renvoi et &#231;a resoudra mon probl&#232;me. Mais c'est le pourquoi qui m'interresse.

merci de ton aide.

f0xi · Answer

Procedure FilesSearch(const path,extention : string;) : TStringList;

var sr : TSearchRec;

begin

   // on Findfirstise

   FindFirst(path+'\*'+extention,faAnyFile,sr);

   // on commence la recherche

   while FindNext(sr) = 0 do begin

     // si on trouve un elements

     if pos(extention, sr.Name) = (length(sr.Name)-length(extention)) then

        // on l'ajoute a la liste

        result.Add(sr.Name);

   end;

   // on ferme SR

   FindClose(sr);

end;

f0xi · Answer

Ah zut j'ai oublier,



tu peu egalement utiliser la fonction 

FileExist(filename : string) : boolean



pour tester si un fichier existe...

Liste de fichiers avec FindFirst

8 réponses

Votre réponse

Discussions similaires