A voir également:
- Delphi copyfile
- Copyfile delphi - Meilleures réponses
- Delphi copy file - Meilleures réponses
- Utilisation de copyfile - Forum - Delphi / Pascal
- CopyFile ne fait rien ✓ - Forum - Delphi / Pascal
- Delphi copyfile example - Forum - Visual Basic
- DELPHI CopyFile : - Forum - Delphi / Pascal
- Copier les fichiers d'un répertoire sur un autre support - Forum - Delphi / Pascal
2 réponses
emmanuelgo
- Messages postés
- 58
- Date d'inscription
- vendredi 24 décembre 2004
- Statut
- Membre
- Dernière intervention
- 13 avril 2005
décidemment rien ne va...
je reposte donc :
désolé de vous avoir dérangé, j'ai fait la correction moi-même
CopyFile(pchar(EditCheminImage.Text),pchar(ExtractFileDir(StaticText1.Caption)+ '\Images\' + ExtractFileName(EditCheminImage.Text)),true);
ça marche mieux..encore désolé !, c'est la fatigue
je reposte donc :
désolé de vous avoir dérangé, j'ai fait la correction moi-même
CopyFile(pchar(EditCheminImage.Text),pchar(ExtractFileDir(StaticText1.Caption)+ '\Images\' + ExtractFileName(EditCheminImage.Text)),true);
ça marche mieux..encore désolé !, c'est la fatigue
emmanuelgo
- Messages postés
- 58
- Date d'inscription
- vendredi 24 décembre 2004
- Statut
- Membre
- Dernière intervention
- 13 avril 2005
oops désolé, le début du message a été avalé....
je recommence :
je souhaite copier un fichier dont le chemin est dans un TEdit nommé
EditCheminImage vers un dossier 'Images' qui se crée dans
ExtractFileDir(StaticText1.Caption), où StaticText1.Caption est le
chemin d'un fichier...
J'utilise ce code :
if CreateDir(ExtractFileDir(StaticText1.Caption)+ '\Images') then begin
showmessage(EditCheminImage.Text+' ' + ExtractFileDir(StaticText1.Caption)+ '\Images\' );
CopyFile(pchar(EditCheminImage.Text),pchar(ExtractFileDir(StaticText1.Caption)+'\Images\'),true);
end;
Le dossier se crée, le test est 'true' (le message s'affiche)...mais aprés l'opération, le dossier créé est vide....
ai-je oublié quelque chose ??
merci de vos réponses...
je recommence :
je souhaite copier un fichier dont le chemin est dans un TEdit nommé
EditCheminImage vers un dossier 'Images' qui se crée dans
ExtractFileDir(StaticText1.Caption), où StaticText1.Caption est le
chemin d'un fichier...
J'utilise ce code :
if CreateDir(ExtractFileDir(StaticText1.Caption)+ '\Images') then begin
showmessage(EditCheminImage.Text+' ' + ExtractFileDir(StaticText1.Caption)+ '\Images\' );
CopyFile(pchar(EditCheminImage.Text),pchar(ExtractFileDir(StaticText1.Caption)+'\Images\'),true);
end;
Le dossier se crée, le test est 'true' (le message s'affiche)...mais aprés l'opération, le dossier créé est vide....
ai-je oublié quelque chose ??
merci de vos réponses...