Compter le nombre de dossier vide [Résolu]
SystemWin - - Dernière réponse : SystemWin - 31 mai 2013 à 17:00
A voir également:
- Yanbde
- 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 fois qu'une lettre se trouve dans un string - Codes sources - Visual Basic / VB.NET (Texte)
5 réponses
Meilleure réponse
- Messages postés
- 4208
- Date d'inscription
- vendredi 23 juillet 2004
- Statut
- Modérateur
- Dernière intervention
- 17 août 2019
Salut,
regarde ceci
et ceci
un mix des deux fera très bien l'affaire
[hr]@+Cirec
[hr]
regarde ceci
et ceci
un mix des deux fera très bien l'affaire
[hr]@+Cirec
[hr]
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
122 internautes nous ont dit merci ce mois-ci
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;
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\
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;