Faire une copy d'un repertoire à un autre...

Question

Salut?


J'ai écrit ces codes afin de faire une copie des fichiers se trouvant dans un repertoire. Sur mon form, j'ai un Barchar et un Tbutton. Je les ai écrit juste parce que j'aimerai faire une copie des fichiers existant dans un repertoire vers un autre. Ces codes marchent très bien.
Mais il y a un problème: la copie ne peut se faire que pour des fichiers portant leurs extensions et ne peut se faire en utilisant les symboles *.* comme dans le Dos (copie tous les fichiers). Prenons en un exemple:  'monprogramme'. Au lieu de 'monprogram.txt').
les codes colorés en rouge marchent:
copyfile('c:\myprogram\program.txt'.'c:\mytest	est.txt); true);bar.position:=100;

Mais ceux en bleu ne marchent pas comme je l'ai dit plus haut
copyfile('c:\myprogram\*.*.'c:\mytest\*.*); true);bar.position:=100;

Si je n'ai été clair dans mes dires. Prière de m'en faire part.


Merci d'avance. 
Merci.


Jennybless

jelume · Answer

Bsr,

Il faut faire une procédure récursive en utilisant les fonctions FindFirst et FindNext de Delphi.
Ces fonctions renvoient aussi les noms de répertoires. Chaque fois que tu "tombes" sur un répertoire, tu appelles la meme fonction de façon récursive.
Essayes toi-même et si tu n'y arrives pas, je te donnerai plus de précisions.

J-L

jelume · Answer

Précision: mon message précédent indique une méthode compliquée mais intéressante.
Il est plus simple d'utiliser l'API ShFileOperation  :-)

J-L

Faire une copy d'un repertoire à un autre...

2 réponses

Votre réponse

Discussions similaires