Comment deplacer un fichier vers un repertoire?
Résolu
ewertheimer
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
-
3 mars 2006 à 16:07
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 6 mars 2006 à 22:37
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 6 mars 2006 à 22:37
A voir également:
- Delphi movefile
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Comment créer un lien vers un site internet - Forum C# / .NET
- Transfert fichier windows vers linux ✓ - Forum Java
6 réponses
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
3 mars 2006 à 17:43
3 mars 2006 à 17:43
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
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
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
6 mars 2006 à 22:37
6 mars 2006 à 22:37
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
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
ewertheimer
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
5 mars 2006 à 21:06
5 mars 2006 à 21:06
Ils me disent la meme chose : [Erreur] Types incompatibles : 'TCaption' et 'PAnsiChar'
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
5 mars 2006 à 21:09
5 mars 2006 à 21:09
Donne le code que tu utilises
@+
Cirec
@+
Cirec
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
5 mars 2006 à 21:59
5 mars 2006 à 21:59
Pas tout le code, juste la ligne qui pose problème c'est tout
@+
Cirec
@+
Cirec
ewertheimer
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
6 mars 2006 à 18:21
6 mars 2006 à 18:21
nom: string;
MoveFile(Edit1.Text, nom)
Voici la ligne.
MoveFile(Edit1.Text, nom)
Voici la ligne.
