Merci cirec pour les liens et de ton aide,
Function
Function ListeDossierVide(Chemin: String; List: TStrings): Boolean;
Var
S: TSearchRec;
Begin
Chemin := IncludeTrailingPathDelimiter(Chemin);
Result := true;
If FindFirst(Chemin + '*.*', faAnyFile, S) = 0 Then
Begin
Repeat
If (S.Name <> '.') And (S.Name <> '..') Then
Begin
If (S.Attr And faDirectory) <> 0 then
begin
Result := ListeDossierVide(Chemin + S.Name, List);
if Result = true then
List.Add(Chemin+ S.Name);
Application.ProcessMessages;
end
else
begin
// fichier trouvé => dossier non vide
Result := false;
end;
End;
// Recherche du suivant
Until FindNext(S) <> 0;
FindClose(S);
End;
End;
-----------------------------------------------------------------
Mon but c'est d'afficher que le dossier vide en fin d'adresse
Exemple :
- C:\MonProgramme\ (Dossier sans fichier qui contien un dossier vide)
- C:\MonProgramme\Projet\ ( Le dossier vide)
Affichage Memo : C:\MonProgramme\Projet\
Sans avoir C:\MonProgramme\