Discussion :

[EssaiEncore]

Bonjour

Grace a la FAQ j'ai pu réaliser mon bout de code qui permet de copier un fichier vers un autre repertoire.
Cependant, je n'arrive pas a mettre des edit a la place des noms de repertoires source et cible.

Cela marche, mais le fichier source et cible sont fixe, idem pour le nom du nouveau fichier.

Code :

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

1
2
 
CopyFile('C:\APP_HMY\suivisortieproduit\hkj\ARBO.TXT','C:\APP_HMY\suivisortieproduit\ezzee\test2.doc',true);

je voudrais :

Code :

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

1
2
 
CopyFile(''+FilenameEdit1.text+'',''+Edit3.text+ProgramName.text+MyFileExtension.text+'',true);

FilenameEdit1 permet de prendre le fichier source
Edit3 est le repertoire cible
ProgramName prend le nom du fichier source (grace encore a la FAQ )
MyFileExtension prend l'extention du fichier source

Le compilateur me retourne un message d'erreur a la premiere virgule ???

Merci d'avance

[rbh]

Salut
je crois que j'ai trouvé ce qui ne vas pas dans ton code.
Si ton message d'erreur est : "Type incompatible : String et PChar"(ou PAnsiChar), alors j'ai la solution.
En effet la fonction copyfile requiert des paramètres de type PChar et non string. Il faudrait donc que tu fasse :

Code :

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

1
2
3
4
 
CopyFile(PChar(''+FilenameEdit1.text+''),
         PChar(''+Edit3.text+ProgramName.text+MyFileExtension.text+''),
         true);

par contre il me semble qu'il existe un copyfile prend des strings mais je l'ai peut-être vu dans mes rêves

[EssaiEncore]

Bien vu !!!
Merci a toi

La semaine se fait sentir, vivement dans 1 heure.... la DEBAUCHE.

Encore merci et bonne prog .