Discussion :

[nekcorp]

Bonjour,

Je souhaite copier et déplacer des fichiers portant le même nom mais dans des dossiers différents. Pour être plus explicite voici mon aborescence :

----Fichiers générés-----------
\....\run1\toto.thp
\....\run2\toto.thp
\....\run3\toto.thp
\....\run3\toto.thp
etc....

Je souhaite les colller dans un dossier \....\resultats\, mais renomer comme suit : l'indice correspondant au numero du run(i)

---------fichiers récupérés------------
01-toto.thp
02-toto.thp
etc.....

Je vois pas comment faire, car les sujets traités sont souvent expliqués pour un fichier ou un dossier.

PS: Je ne connais pas VBS, on ma juste dis que cela se ferait sans problème avec VBS

Merci par avance.

[xanatox]

Si tu veux scanner ton répertoire pour trouver un fichier spécifique, tu peux utiliser une fonction récursive.
Cela te permettra de scanner tout les sous répertoire d'un dossier cible.

Exemple de fonction récursive :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sub folderlist(folder) 'fonction principale => scan recurcivement les repertoire de Folderlist 
	On Error Resume Next  
	dim f,f1,sf  
	set f = fso.GetFolder(folder) 
	set sf = f.SubFolders 
	for each f1 in sf 
                         < ----
                             tu place ici le code pour recherche ton fichier 
                          ------>
		folderlist(f1.path) 'appel recurcive de la fonction (la fonction s'appel elle même 
	next  
end sub

je sais pas si il y a plus simple ... surement ... mais la sa fonctionne