Salut,
Je souhaite déplacer des fichiers contenus dans plusieurs sous répertoires (noms et nombre inconnus) d'un répertoire.
Qui peut m'aider?
Merci d'avance
Phil
Salut,
Je souhaite déplacer des fichiers contenus dans plusieurs sous répertoires (noms et nombre inconnus) d'un répertoire.
Qui peut m'aider?
Merci d'avance
Phil
La description de ton probléme n'est pas assez détaillé, cependant de maniére générale il suffit d'utiliser une fonction récursive de parcours de l'arborescence de ton dossier racine.
Voici un exemple en pseudo code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Fonction ProcessDirectory i = 0 element = ObtenirElements(".") tant que i <> taille(element) Si EstRepertoire(element[i]) ProcessDirectory() Sinon DeplacerFichierVers("La ou tu veux") FIn Si i++ fin tant que Fin Fonction
avant de les déplacer crée une liste qui contient les nom avec chemin complet de tout les fichiers que tu veux déplacer
http://nono40.developpez.com/sources/source0042/
puis
http://delphi.developpez.com/faq/?pa...-un-repertoire
Il y a aussi le composant JvShFileOperation des Jedi :
http://wiki.delphi-jedi.org/wiki/JVC...HFileOperation
Ils ont une démo très explicative. Personnellement, je les utilise avec un pointeur sur le composant. Une routine perso les manipule en les paramétrant, ce qui évite d'avoir à saisir les paramètres à chaque fois (plusieurs lignes de code).
Ca donne qqch comme ça :
Une variable est nécessaire, pour paramétrer les options des SHFileOperations :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Function Effacer_Rep(Nom_Rep : string; Ptr_Sur_JvSHfile : Pointer) : integer; { Nom_Rep : répertoire à effacer Ptr_SHFiles : ^TJvSHFileOperation; Codes de retour 0 : pas d'erreur, 1 : Rep n'existe pas, 2 : Rep n'est pas un répertoire } // Syntaxe d'appel : Effacer_Rep(Nom_Rep, @Form1.JvShFileOperation);
Et, dans la fonction, bien sûr, affecter le pointeur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Options_SHF : TJvSHFileOptions;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Ptr_SHFiles := Ptr_Sur_JvSHfile;
Attention ! : sauvegardes impératives avant de les tester Les développeurs des Jedi le signalent, d'ailleurs, dans la démo.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager