تجميع ملفات في ملف واحد

[لؤي]

[FONT="Comic Sans MS"]هذا الكود إشتغل معي شكرا لك اخي

كود :

var cptDate : TDate ;x,i:Integer; fichierTmp, fichierFinal : TStringList ; begin //initialisation du compteur de Date (DateTimePicker1) cptDate := DateTimePicker1.DateTime; //Création des TStringList fichierTmp := TStringList.Create ; fichierFinal := TStringList.Create; //Boucle tant que l'on a pas atteint la Date supérieure (DateTimePicker2) while cptDate < DateTimePicker2.DateTime do begin fichierTmp.Clear ; // on vide le contenu for i:= 0 to ListBox1.Count -1 do begin fichierTmp.Clear; if fileExists(ListBox1.Items.Strings[i]+ ‘File.' + IntToHex(StrToInt(FormatDateTime('m',cptDate)),00)+FormatDateTime('dd',cptDate)) then Begin {fixer la date est varié le chemin} fichierTmp.LoadFromFile( ListBox1.Items.Strings[i]+ ‘File.' + IntToHex(StrToInt(FormatDateTime('m',cptDate)),00)+FormatDateTime('dd',cptDate)) ; //Chargement du fichier fichierFinal.AddStrings( fichierTmp ) ; // Ajout du fichier chargé au fichier final end; end ; cptDate := cptDate + 1; //Incrémentation de la date end ; fichierFinal.SaveToFile( 'C:\fichierFinal.txt' ) ; //Sauvegarde du fichier Final //Libération des ressources fichierTmp.Free; fichierFinal.Free; end;