Copier un dossier et son contenu

Bonjour,

Deux méthodes pour copier un dossier et son contenu.

Tout d'abord mettre un TButton sur une forme.

1^ère méthode

Utilisation de CopyDirTree

Il faut mettre fileutil dans les clauses uses.

Code:

---

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin CopyDirTree('Chemin du dossier source\Nom du dossier source\', 'Chemin du dossier receveur\Nom du dossier récepteur\'); end;

---

Le dossier receveur n'a pas besoin d'avoir été créé avant l'utilisation du code.

:arrow: Attention : il ne faut pas oublier \ à la suite des noms des dossiers source et récepteur, sinon ça ne fonctionne pas.


2^ème méthode

Cette méthode un peu plus complexe consiste à utiliser un fichier .cmd (fonctionne aussi avec un fichier .bat).

On crée un fichier texte qu'on enregistre avec une extension .cmd.
Contenu du fichier :

Code:

---

1 2 3 4

@echo off mkdir Chemin et nom du dossier récepteur à créer copy Chemin et nom du dossier source\*.* Chemin et nom du dossier récepteur exit

---

*.* est utilisé pour copier tous les fichiers quelles que soient leurs extensions.

Il faut mettre Dos dans les clauses uses.

Code:

---

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin Exec('Chemin du fichier .cmd\Nom du fichier .cmd','C:\Windows\System32\cmd.exe'); end;

---

Bonjour ! Intéressant. Merci pour le partage.

Une petite remarque concernant l'unité Dos. Elle est utile pour faire fonctionner de vieux programmes. Mais pour quelque chose de nouveau, autant utiliser l'unité Process et sa fonction RunCommand. ;)

Bonjour Roland,

Bien vu et :merci:
Voilà le code avec RunCommand :
Mettre process dans les clauses uses.

Code:

---

1 2 3 4 5 6

procedure TForm1.Button1Click(Sender: TObject); var s : ansistring; begin RunCommand('Chemin du fichier .cmd\Nom du fichier .cmd',['C:\Windows\System32\cmd.exe'],s); end;

---

Fonctionne aussi avec un fichier .bat.