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

Signaler
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
-
Messages postés
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
-
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.

6 réponses

Messages postés
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
34
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
Messages postés
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
34
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
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009

Ils me disent la meme chose : [Erreur] Types incompatibles : 'TCaption' et 'PAnsiChar'
Messages postés
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
34
Donne le code que tu utilises

@+
Cirec
Messages postés
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
34
Pas tout le code, juste la ligne qui pose problème c'est tout

@+
Cirec
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009

nom: string;
MoveFile(Edit1.Text, nom)
Voici la ligne.