Compter le nombre de dossier vide
Résolu
A voir également:
- Includetrailingpathdelimiter delphi
- Delphi includetrailingpathdelimiter - Meilleures réponses
- Yanbde - Meilleures réponses
- PHP : Compter le nombre de fichiers dans un dossier - CodeS SourceS - Guide
- Compter le nombre de cellules non vides ✓ - Forum - VBA Office (Excel, Word ...)
- Compter le nombre de fichiers d'un dossier et declencher une alerte ( fenêtre, m ✓ - Forum - Visual Basic 6
- Compter nombre cellule non vide dans une colonne Excel (code VB) ✓ - Forum - Visual Basic 6
- Compter le nombre de voyelle en langage c ✓ - Forum - C / C++ / C++.NET
5 réponses
Cirec
- Messages postés
- 3827
- Date d'inscription
- vendredi 23 juillet 2004
- Statut
- Modérateur
- Dernière intervention
- 16 décembre 2021
cs_yanb
- Messages postés
- 265
- Date d'inscription
- lundi 27 octobre 2003
- Statut
- Membre
- Dernière intervention
- 19 juillet 2021
Salut,
regardes du côté de TSearchRec, FindFirst, FindNext, FindClose, FileAttrs...
pour en sortir une fonction qui regarde si le dossier est vide
@+
regardes du côté de TSearchRec, FindFirst, FindNext, FindClose, FileAttrs...
pour en sortir une fonction qui regarde si le dossier est vide
@+
SystemWin
Merci yanb de ta réponse,
Exemple avec cette function mais a l'inverse au lieu de compter les fichiers je voudrai compter les répertoires vide
// Procédure pour compter les fichiers
Function CompteFichiers(Chemin:String):Integer;
Var S: TSearchRec;
Begin
Chemin := IncludeTrailingPathDelimiter(Chemin);
Result := 0;
If FindFirst(Chemin + '*.*' ,faAnyFile ,S) = 0 Then
Begin
Repeat
If (S.Name <> '.') And ( s.Name <> '..') Then
Begin
If (S.Attr And faDirectory) <> 0
Then Result := Result+CompteFichiers(Chemin+S.FindData.cFileName)
Else Inc(Result);
End;
// Recherche du suivant
Until FindNext(S)<>0;
FindClose(S);
End;
End;
Exemple avec cette function mais a l'inverse au lieu de compter les fichiers je voudrai compter les répertoires vide
// Procédure pour compter les fichiers
Function CompteFichiers(Chemin:String):Integer;
Var S: TSearchRec;
Begin
Chemin := IncludeTrailingPathDelimiter(Chemin);
Result := 0;
If FindFirst(Chemin + '*.*' ,faAnyFile ,S) = 0 Then
Begin
Repeat
If (S.Name <> '.') And ( s.Name <> '..') Then
Begin
If (S.Attr And faDirectory) <> 0
Then Result := Result+CompteFichiers(Chemin+S.FindData.cFileName)
Else Inc(Result);
End;
// Recherche du suivant
Until FindNext(S)<>0;
FindClose(S);
End;
End;
SystemWin
Merci cirec pour les liens et de ton aide,
Function
-----------------------------------------------------------------
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\
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\
SystemWin
Probléme résolu
Function fListeDossierVide(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
Result := false;
If (S.Attr And faDirectory) <> 0 then
begin
if fListeDossierVide(Chemin + S.Name, List) then
List.Add(Chemin + S.Name);
Application.ProcessMessages;
end;
End;
// Recherche du suivant
Until FindNext(S) <> 0;
FindClose(S);
End;
End;