Files Count [Résolu]

papyvore 155 Messages postés samedi 15 novembre 2003Date d'inscription 5 avril 2018 Dernière intervention - 28 janv. 2018 à 17:37 - Dernière réponse : papyvore 155 Messages postés samedi 15 novembre 2003Date d'inscription 5 avril 2018 Dernière intervention
- 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 

2 réponses

Répondre au sujet
0
Utile
1
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 155 Messages postés samedi 15 novembre 2003Date d'inscription 5 avril 2018 Dernière intervention - 29 janv. 2018 à 10:56
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.