Copie de fichier .txt avec renomage et ecrasement

Salut a tous,

Je souhaite copier un fichier .txt en le renomant et le tous en écrasant la destination. Si possible en une seule opération.

Merci

A+

Salut Stigmate101,
si j'ai bien compris ce que tu demandes, tu cherches une fonction pour copier un fichier et si le fichier de destination existe déjà, tu veux l'écraser, non ?
Si c'est ça, utilise cette fonction :
CopyFile('c:\FichierSource.txt','c:\FichierDestination.txt', False);
le false à la fin signifie que si le fichier de destination existe, qu'il soit écrasé...
Voilà et au cas où tu veuilles tester si le fichier de destination existe, tu fais If FileExists('c:\FichierDest.txt')=True Then ShowMessage('Le fichier de destination existe...');

Bon, @+

-------------------------------
Réponse au message :
-------------------------------

> Salut a tous,
>
> Je souhaite copier un fichier .txt en le renomant et le tous en écrasant la destination. Si possible en une seule opération.
>
> Merci
>
> A+

Je te remercie j'essaye
A+



-------------------------------
Réponse au message :
-------------------------------

> Salut Stigmate101,
> si j'ai bien compris ce que tu demandes, tu cherches une fonction pour copier un fichier et si le fichier de destination existe déjà, tu veux l'écraser, non ?
> Si c'est ça, utilise cette fonction :
> CopyFile('c:\FichierSource.txt','c:\FichierDestination.txt', False);
> le false à la fin signifie que si le fichier de destination existe, qu'il soit écrasé...
> Voilà et au cas où tu veuilles tester si le fichier de destination existe, tu fais If FileExists('c:\FichierDest.txt')=True Then ShowMessage('Le fichier de destination existe...');
>
> Bon, @+
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Salut a tous,
> >
> > Je souhaite copier un fichier .txt en le renomant et le tous en écrasant la destination. Si possible en une seule opération.
> >
> > Merci
> >
> > A+
>

En fait j'ai fait une procedure pour tester, mais je me trouve face à un message d'erreur.
Types incompatibles 'String' et 'PChar'
Voici mon code:
procedure TForm1.CreationFichierTravail(StgTxt:string;Localisation:string);
begin
CopyFile(Localisation+StgTxt+Ext,Localisation+StgTxt+'Tmp'+Ext,False);
end;

Localisation: correspond au chemin (string)
StgTxt: Nom du fichier (string)
Ext: Extension du fichier ici .txt (string)

Dans la copie je renome le fichier .txt en ajoutant à son nom 'Tmp'

Merci d'avance
A+




-------------------------------
Réponse au message :
-------------------------------

> Je te remercie j'essaye
> A+
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Salut Stigmate101,
> > si j'ai bien compris ce que tu demandes, tu cherches une fonction pour copier un fichier et si le fichier de destination existe déjà, tu veux l'écraser, non ?
> > Si c'est ça, utilise cette fonction :
> > CopyFile('c:\FichierSource.txt','c:\FichierDestination.txt', False);
> > le false à la fin signifie que si le fichier de destination existe, qu'il soit écrasé...
> > Voilà et au cas où tu veuilles tester si le fichier de destination existe, tu fais If FileExists('c:\FichierDest.txt')=True Then ShowMessage('Le fichier de destination existe...');
> >
> > Bon, @+
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Salut a tous,
> > >
> > > Je souhaite copier un fichier .txt en le renomant et le tous en écrasant la destination. Si possible en une seule opération.
> > >
> > > Merci
> > >
> > > A+
> >
>

Salut,

La solution à ton problème.

CopyFile(PCher(Localisation+StgTxt+Ext),PChar(Localisation+StgTxt+'Tmp'+Ext),False);

Voli, voila


Allez @+