Files CountRésolu

Question

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 ????

Yanb · Answer

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;@+

Files Count

1 réponse

Votre réponse

Discussions similaires