Bonjour !!
 
J'aurais besoin d'un script tout simple (enfin tout simple pour qqn qui connait vbs ) :
j'ai un dossier "folder" contenant plusieurs sous dossiers folder1, folder2... eux mêmes contenant, entre autres, un dossier "truc" (même nom pour folder1, folder2...).
Je souhaiterais supprimer le contenu de ces dossiers "truc".
 
Merci beaucoup !!

tout ce dont tu as besoin est là :
http://msdn.microsoft.com/library/ [...] Object.asp

Hum...spa sur...

T'es sur d'avoir essayé ?  

Ah bah là je crois que j'ai tout donné :
 

Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFolder = objFSO.GetFolder("C:\Documents and Settings \ moi \ bureau \ folder\" )
Set dossiers = objFolder.Subfolders
For Each objSubfolder in dossiers
 if (objSubfolder.Name="truc" ) then
 msgbox(objsubfolder)
 Set chemin = objFSO.GetFolder("C:\Documents and Settings \ moi \ bureau \ test\" & objSubfolder & " )
 kill chemin & "/*.*"
End if
Next
 
Mais j'obtiens un message d'erreur "chemin d'accès introuvable" ligne 7 alors que objsubfolder est bien égal à "truc".
En plus, dans le cas où ça marcherait, ça ne ferait toujours pas ce que je veux, puisque on est ici à un sous-niveau de répertoire, alors que je voudrais que le script scrute à deux sous-niveaux...
 
 

Bon ça avance :
 
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFolder = objFSO.GetFolder("C:\Documents and Settings\moi\bureau\folder\" )
Set dossiers = objFolder.Subfolders
For Each objSubfolder in dossiers
 if (objSubfolder.Name="truc" ) then
 msgbox(objsubfolder)
 objFSO.DeleteFile(objsubfolder & "\*.*" )
End if
Next
 
Ca marche pour les dossiers de premier niveau, reste à voir pour les dossiers de second niveau...

Ca marche !!

Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFolder = objFSO.GetFolder("C:\Documents and Settings\moi\bureau\folder\" )
Set dossiers = objFolder.Subfolders
For Each objSubfolder in dossiers
 set sousdoss=objsubfolder.Subfolders
  For Each objSubfolder2 in sousdoss
  if (objSubfolder2.Name="truc" ) then
   msgbox(objsubfolder2)
  objFSO.DeleteFile(objsubfolder2 & "\*.*" )
 End if
 Next
Next
 
Merci de ne pas m'avoir donner la soluce, au moins j'aurai appris quelque chose  

La récursivité est ton amie

rm -r folder/folder*/truc/*

 
Comment tu ferais ça récursivement ?

vu que tu connais l'mplacement où se trouvent les fichiers que tu veux effacer, la récursivité n'est pas vraiment indiquée dans ton cas.

C'est le but du forum

 
"rm -r" sous Windaub c'est pas gagné...