la commande renamefile

Question

bonjour;
quand j'utilise renamefile(fsource,fdestination) ;
fdestination est specifié ..la commande marche.
ex : renamefile('c:\aaa\azerty.txt','c:\aaa\azerty1.txt').

mais quand le fichier source est par exemple:
S; (S: varible string); ca ne marche pas.
ex
S:= 'c:\aaa\'+ edit1.text+'.txt';
renamefile('c:\aaa\azerty.txt',S);

meme si je fait  renamefile('c:\aaa\azerty.txt',Pchar(S));

merci

japee · Answer

Attention !

function RenameFile(const AncienNomFichier, NouveauNomFichier: string): Boolean;

Tu as simplement interverti nom d'origine et nouveau nom.

Try again  ;)

japee · Answer

Bon, suite à ton message, je vais être plus explicite  :approve) 

Tout ce qui suit fonctionne sans problème :

procedure TForm1.Button1Click(Sender: TObject);
var Origine: String;
begin
  Origine := 'Origine.txt';
  RenameFile(Origine, 'Nouveau.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
var Origine, Nouveau: String;
begin
  Origine := 'C:\Chemin\Origine.txt';
  Nouveau := 'C:\Chemin\Nouveau.txt';
  RenameFile(Origine, Nouveau);
end;


Si ça peut t'éclairer...  8-) 

Bonne prog' à toi  :-p

La commande renamefile

2 réponses

Votre réponse

sur les mêmes thèmes