Files Count [Résolu]

Messages postés
161
Date d'inscription
samedi 15 novembre 2003
Dernière intervention
10 décembre 2018
- - Dernière réponse : papyvore
Messages postés
161
Date d'inscription
samedi 15 novembre 2003
Dernière intervention
10 décembre 2018
- 29 janv. 2018 à 10:56
Bonjour,
Function FileCount(Chemin: String): Integer;
Var
S: TSearchRec;
Begin
Chemin := IncludeTrailingPathDelimiter(Chemin);
Result := 0;
If FindFirst(Chemin + '*.jpg', faAnyFile, S) = 0 Then
Begin
Repeat
If (S.Name <> '.') And (S.Name <> '..') Then
Begin
If (S.Attr And faDirectory) <> 0 Then
Result := Result + FileCount(Chemin + S.FindData.cFileName)
Else
Inc(Result);
End;
// Recherche du suivant
Until FindNext(S) <> 0;
FindClose(S);
End;
End;

la fonction sort de la boucle au premier dossier et ,ne prend pas en compte les sous dossiers ??
je ne comprend pas mon erreur .
d'autant que je retrouve la même fonction sur le net
ça marche pas sous windows 10 ????
Afficher la suite 

Votre réponse

1 réponse

0
Merci
Salut,
Function FileCount(Chemin, AFileExt: String; AIgnoreCase: Boolean = False): 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 + FileCount(Chemin + S.FindData.cFileName, AFileExt)
        Else
          If AIgnoreCase Then
          Begin
            If UpperCase(ExtractFileExt(S.Name)) = UpperCase('.' + AFileExt) Then
              Inc(Result);
          End
          Else
            If ExtractFileExt(S.Name) = '.' + AFileExt Then
              Inc(Result);
      End;
      // Recherche du suivant
    Until FindNext(S) <> 0;
    FindClose(S);
  End;
End;
@+
papyvore
Messages postés
161
Date d'inscription
samedi 15 novembre 2003
Dernière intervention
10 décembre 2018
-
salut merci
Commenter la réponse de Yanb

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.