Discussion :

[jeffk_]

Bonjour,

J'ai fait une petit application où grâce à une boite de dialogue (TFileNameEdit) l'utilisateur va chercher un .exe, puis quand il clique sur un bouton, ça lance l'application concerné par le .exe qu'il a été chercher précédemment. (ShellExecute)
Grâce à la propriété Filter je peu déjà aider l'utilisateur pour trouver le bon .exe et un peu aussi grâce au InitDir. (Malgré qui doit parcourir un minimum son PC pour aller le chercher)

Maintenant je voudrait que sur un bouton, il y est une fonction qui va me chercher directement dans "X" le chemin du fichier "Y".

Par exemple :

Chercher dans "C:\Programs Files" (j'imagine que plus c'est précis plus c'est rapide) le fichier "blabla.exe"

Et après je met le lien dans un variable et le tour est joué.

Comment puis-je faire ça ?

Merci,

Jeff.

[chris37]

Un petit effort de recherche n'est pas difficile quand même

Voici un exemple d'utilisation....

var
sr: TSearchRec;
begin
if FindFirst('\\Serveur\MonDossier\*.exe', faAnyFile, sr) = 0 then
begin
repeat
if not((sr.Name = '.') or (sr.Name = '..')) then
begin
if sr.Name = 'MonFichier.exe' then
ShowMessage(sr.Name);
end;
until FindNext(sr) <> 0;
end;
FindClose(sr);
end;

http://www.developpez.net/forums/d81...ion-findfirst/

C'est du Delphi mais cela fonctionne de la même manière avec Lazaus

[jeffk_]

Merci, mais je crois que avec ta méthode ca cherche que dans "Mon Dossier", je voudrais que ca chercher dans les sous dossier aussi. Comme ca j'indique que C:\Prg Files\ mais après le .exe peut être dans des sous dossier de sous dossier (etc ...) de Prg Files par exemple.

Ou je me trompe ?

[tintinux]

Bonjour,

La solution est dans la récursivité.

Il faut modifier la suggestion de Chris en faisant une procédure comme suit.

Si dans un dossier tu rencontres un autre dossier, tu appelles la procédure récursivement, et tu parcourras ainsi toute l'arborescence.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TraiteUnDossier ( const Dossier, Fichier : TFileName );
 
var
  sr: TSearchRec;
 
begin
if FindFirst( Dossier+FileSeparator+'*', faAnyFile, sr) = 0 then
begin
repeat
  if Sr.Attr and faDirectory > 0 then begin
    if not((Sr.Name = '.') or (Sr.Name = '..')) then begin
      // Dossier
      TraiteUnDossier(Dossier +  FileSeparator + Sr.name, Fichier );
      end
    end
  else begin
    if sr.Name = Fichier then
       ShowMessage(sr.Name+' trouvé dans '+Dossier);
    end;
until FindNext(Sr) <> 0;
end;
FindClose(Sr);
end;

que tu appelles ainsi :

Code :

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

1
2
 
TraiteUnDossier ('\\Serveur\MonDossier', 'Monfichier.exe' );

Je n'ai pas testé le code, mais l'important est le principe.

Cordialement,
Tintinux

[theodp]

Aussi :
http://lazarus-ccr.sourceforge.net/d...esearcher.html