Discussion :

[chrtophe]

Bonsoir,

Je cherche à déplacer des fichiers dans des sous-dossiers dans des sous-dossiers à la racine du dossier parent.

J'ai essayé avec 7-zip qui a une option affichage à plat et avec total commander, ça ne semble pas fonctionner. J'ai plein de doublons, le but étant de les éliminer et de mettre tous les fichiers au même niveau.

J'ai regardé la commande move mais elle ne semble pas avoir d'option /s.

Si vous avez une astuce ...

Merci d'avance.

[kaitlyn]

Salut,

As-tu besoin de vérifier leurs checksums (md5...) ?

Si non, une commande de ce genre, depuis la console, devra suffire
for /f "tokens=*" %i in ('dir /s /b /ad "x:\y\z"') do @move /y "%i\*" "x:\y\z\"
Attention à bien tester avant.

[chrtophe]

Merci pour le retour et rapide en plus.

J'avais pas pensé à la boucle for.

Je teste demain.

[wheel]

Tu peux aussi utiliser le vbs pour parcourir les sous dossiers et faire les opérationss de déplacement ou suppression si le fichier existe.

Code pour parcourir un dossier

Code vbs :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set fso = CreateObject("Scripting.FileSystemObject")
 
oFile="C:\Users\pc\Desktop\List.txt" 'liste de sortie 
 
Set TxtFile = fso.CreateTextFile(oFile,True)
ProcessFolder "C:\Users\pc\Desktop\Dossier"  'Dossier à parcourir 
TxtFile.Close
Msgbox "Fin"

Function ProcessFolder(aDir)
    Set folder = fso.GetFolder(aDir)
	
    For Each file in folder.Files 
	   TxtFile.Write file.Path & vbCrLf 
    Next
 
    For Each subFolder in folder.SubFolders 
       ProcessFolder subFolder.Path
    Next
End Function