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 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 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 

Votre réponse

6 réponses

Meilleure réponse
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 3 mars 2006 à 17:43
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

Merci Cirec 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de Cirec
Meilleure réponse
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 6 mars 2006 à 22:37
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

Merci Cirec 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

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
Merci
Ils me disent la meme chose : [Erreur] Types incompatibles : 'TCaption' et 'PAnsiChar'
Commenter la réponse de ewertheimer
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 5 mars 2006 à 21:09
0
Merci
Donne le code que tu utilises

@+
Cirec
Commenter la réponse de Cirec
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 5 mars 2006 à 21:59
0
Merci
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
Merci
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.