Discussion :

[pamplemousse]

Voilà, j'ai doit faire un petit programme qui me récupère deux fichiers (un *.db et l'autre *.px) ds un répertoire désigné pour ensuite supprimer le repertoire, en creer un nouveau et remettre les deux fichier dans le nouveau en les renommant....

Ch'ui pas tres balaize mais j'ai un grand coeur même si ca n'a rien a voir lol... donc je pense que on peut le faire avec un container OLE mais quand je restaure mes fichiers avec ole.savetofile ils ne font plus la meme taille et sont illisible par ma table puisque je veus les reouvrir (ils ont subi une transformation OLE OLE mais moi je veux qu'ils soient identique a l'original)

Merci beaucoup c assez urgent en plus... tks et bonne journée ou soirée

[Bejaia-In]

Voici une procedure qui execute ce que tu demande.
il suffit juste de changer les noms de fichiers et de répertoires.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure FaireUnSwap;
var FichierUn,FichierDeux:TMemoryStream;
begin
 FichierUn:=TMemoryStream.Create;
 FichierDeux:=TMemoryStream.Create;
 try
 FichierUn.LoadFromFile('NomDuFicierUN');    // Récupère en mémoire les deux fichiers.
 FichierDeux.LoadFromFile('NomDuFicierDeux');
 if not DeleteFile('NomDuFicierUn') then Abort; // Efface du disque les fichiers.
 if not DeleteFile('NomDuFicierDeux') then Abort;
 if not RemoveDir('NomDuRepertoire') then Abort; // Efface le répertoire courant
 if not CreateDir('NouveauRepertoire') then Abort;// Crée un nouveau répertoire
 FichierUn.SaveToFile('NouveauNomFichierUn');    // Sauvegarde les fichiers renommés sur disque.
 FichierDeux.SaveToFile('NouveauNomFichierDeux');
 finally
 FichierUn.Free;
 FichierDeux.Free;
 end;
end;

[pamplemousse]

Merci beaucoup bejaia-in c'est tres cool de m'avoir filé la ligne de commande car c'est au top... C vrai que sur ta premiere reponse que j'avais lu je me suis un peu pris la tete a trouver le bon enchainement des commandes lokl mais la c'est tip top....

Encore merci beaucoup

[Bejaia-In]

Pas de quoi pour le merçi.

Au premier post, j'ai eu une urgence qui m'a fait faire le travail de travers.