Discussion :

[LHT]

Bonjour à toutes et à tous,

Après moult recherches je sollicite votre aide sur la question suivante :

quelle fonctionnalité utiliser pour rechercher un répertoire dont je n'ai qu'une partie du nom.
(Par exemple lorsque je fais rechercher dans un répertoire avec la fonction recherche de windows et que j'indique une partie du nom du repertoire recherché, il me le trouve)

J'ai essayer FindNext (voici ma portion de code), mais cela ne me renvoi rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    FindClose(FichierPhoto);
    FindFirst(RepPhoto+NomRubrique+'*',faDirectory,FichierPhoto);
    NomRubrique := FichierPhoto.Name;  //ne me renvoi rien
    RepPhoto := RepPhoto+ NomRubrique+'\';

J'ai aussi essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
NomRubrique := FichierPhoto.FindData.cFileName;

La version utilisée est delphi7 sous WinXP

Merci par avance de vos contributions.

[sat83]

Tu peux utiliser FindFirst, FindNext et TSearchRec.

Regarde cet exemple de recherche de fichier, et adapte la à ton cas.
L'exemple recherche tous les fichiers et dossiers contenu dans un répertoire et dans les sous-répertoires.

[LHT]

merci, je l'avais déjà testé. en fait, c'était tout simplement ma donnée de test qui était pourrave...
merci quand même de ta réponse rapide !!!!


Donc c'est bien ça et ça fonctionne !!
pour ceux que ça interresse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
If FindFirst(Chemin+'*',faDirectory,Info)=0 then begin
      Repeat
          If copy(Info.Name,0,2) = Recherche then begin
            Chemin := Chemin  +FichierPhoto.Name+'\';
            break;
          end;
      Until FindNext(FichierPhoto)<>0;
    end;