La commande renamefile

Signaler
Messages postés
5
Date d'inscription
samedi 9 août 2003
Statut
Membre
Dernière intervention
20 juin 2004
-
Messages postés
1725
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
11 avril 2021
-
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

2 réponses

Messages postés
1725
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
11 avril 2021
8
Attention !

function RenameFile(const AncienNomFichier, NouveauNomFichier: string): Boolean;

Tu as simplement interverti nom d'origine et nouveau nom.

Try again ;)
Messages postés
1725
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
11 avril 2021
8
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