Comment deplacer un fichier vers un repertoire? [Résolu]

Messages postés
163
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
- - Dernière réponse : Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
- 6 mars 2006 à 22:37
Bonjour,
J'aimerais savoir comment deplacer un fichier en entrant comme information des types string : L'emplacement du fichier et le repertoire de destination.
Merci d'avance pour vous reponses.
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
32
1
Merci
Salut,
tout simplement en utilisant la fonction MoveFile de l'unité Windows :

function MoveFile(lpExistingFileName, lpNewFileName: PChar): BOOL; stdcall;

Soit directement comme ceci :
MoveFile('C:\MonFichier.txt', 'E:\MonFichier.txt');

où si ce sont des Variables de type String il faut les transtyper comme ceci :
Var MonFichier, MonNouveauFichier : String;
MoveFile(PChar(MonFichier), PChar(MonNouveauFichier));

@+
Cirec

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
32
1
Merci
Bon il faut lire jusque au bout les réponses que l'on te donnes :

Donc je te remet la réponse:
en rouge ce que tu as oublié :
Var Nom : String;

procedure TForm1.Button8Click(Sender: TObject);
begin
MoveFile(PChar(Edit1.Text), PChar(Nom));
end;

@+
Cirec

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Cirec
Messages postés
163
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
0
Merci
Ils me disent la meme chose : [Erreur] Types incompatibles : 'TCaption' et 'PAnsiChar'
Commenter la réponse de ewertheimer
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
32
0
Merci
Donne le code que tu utilises

@+
Cirec
Commenter la réponse de Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
32
0
Merci
Pas tout le code, juste la ligne qui pose problème c'est tout

@+
Cirec
Commenter la réponse de Cirec
Messages postés
163
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
0
Merci
nom: string;
MoveFile(Edit1.Text, nom)
Voici la ligne.
Commenter la réponse de ewertheimer