Discussion :

[PhilLU]

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

[Ethan 0x21]

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

[edam]

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

[bvsud]

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 :

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);

Une variable est nécessaire, pour paramétrer les options des SHFileOperations :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Options_SHF : TJvSHFileOptions;

Et, dans la fonction, bien sûr, affecter le pointeur :

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.