Getfiles


Comment recusively liste de tous les fichiers dans les répertoires.
procédure GetFiles(Résultat: TStrings Chemin: string IncludePath: Boolean = False)
var
& nbsp & nbsp R: Integer
& nbsp & nbsp SR: TSearchRec
& nbsp & nbsp ThePath: string
begin
& nbsp & nbsp Assert(Résultat <> nil, le Résultat est Nill')
& nbsp & nbsp ThePath := ExtractFilePath(Chemin de)
& nbsp & nbsp ThePath := IncludeTrailingBackSlash(ThePath)
& nbsp & nbsp R := FindFirst(Chemin d'accès, faAnyFile, SR)
& nbsp & nbsp alors que R = 0 do
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si IncludePath puis
& ! & ! & ! & ! & ! & nbsp Résultat.Ajouter(ThePath SR.Nom)
& ! & ! & ! & nbsp else
& ! & ! & ! & ! & ! & nbsp Résultat.Add(RS.Nom)
& ! & ! & ! & nbsp R := FindNext(SR)
& nbsp & nbsp fin
& nbsp & nbsp FindClose(SR)
fin









Getfiles


Getfiles : Plusieurs milliers de conseils pour vous faciliter la vie.


Comment recusively liste de tous les fichiers dans les repertoires.
procedure GetFiles(Resultat: TStrings Chemin: string IncludePath: Boolean = False)
var
& nbsp & nbsp R: Integer
& nbsp & nbsp SR: TSearchRec
& nbsp & nbsp ThePath: string
begin
& nbsp & nbsp Assert(Resultat <> nil, le Resultat est Nill')
& nbsp & nbsp ThePath := ExtractFilePath(Chemin de)
& nbsp & nbsp ThePath := IncludeTrailingBackSlash(ThePath)
& nbsp & nbsp R := FindFirst(Chemin d'acces, faAnyFile, SR)
& nbsp & nbsp alors que R = 0 do
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si IncludePath puis
& ! & ! & ! & ! & ! & nbsp Resultat.Ajouter(ThePath SR.Nom)
& ! & ! & ! & nbsp else
& ! & ! & ! & ! & ! & nbsp Resultat.Add(RS.Nom)
& ! & ! & ! & nbsp R := FindNext(SR)
& nbsp & nbsp fin
& nbsp & nbsp FindClose(SR)
fin


Getfiles

Getfiles : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation