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

ewertheimer 163 Messages postés dimanche 16 janvier 2005Date d'inscription 26 janvier 2009 Dernière intervention - 3 mars 2006 à 16:07 - Dernière réponse : Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention
- 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

Répondre au sujet
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention - 3 mars 2006 à 17:43
+1
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Cirec
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention - 6 mars 2006 à 22:37
+1
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Cirec
ewertheimer 163 Messages postés dimanche 16 janvier 2005Date d'inscription 26 janvier 2009 Dernière intervention - 5 mars 2006 à 21:06
0
Utile
Ils me disent la meme chose : [Erreur] Types incompatibles : 'TCaption' et 'PAnsiChar'
Commenter la réponse de ewertheimer
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention - 5 mars 2006 à 21:09
0
Utile
Donne le code que tu utilises

@+
Cirec
Commenter la réponse de Cirec
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention - 5 mars 2006 à 21:59
0
Utile
Pas tout le code, juste la ligne qui pose problème c'est tout

@+
Cirec
Commenter la réponse de Cirec
ewertheimer 163 Messages postés dimanche 16 janvier 2005Date d'inscription 26 janvier 2009 Dernière intervention - 6 mars 2006 à 18:21
0
Utile
nom: string;
MoveFile(Edit1.Text, nom)
Voici la ligne.
Commenter la réponse de ewertheimer

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.