Trouver un dossier avec un bout de son nom et le supprimer

Bonjour,


Je vais essayer d'expliquer le plus clairement possible ce que je cherche à faire si ce n'est pas le cas n'hésitez pas.

Je souhaite par le biais d'un script supprimer un dossier donné. Rien de plus simple me direz vous ! Sûrement mais là où je bloque c'est que le dit dossier peut ne pas avoir le même nom sur tous les pc.
Pour rentrer dans les détails, je veux supprimer dans Menu Démarrer\Programmes le dossier OpenOffice.org suivi du numéro de version. C'est donc la fin du nom de dossier qui peut être différent.
Je vois bien comment lister les différents sous dossiers de Programmes mais comment lui dire de supprimer le OpenOffice.org 2.0, 2.1 ou 3.1 etc et pas autre chose.

D'avance merci à celles et ceux qui pourront m'apporter leurs lumières.

Keely

Si tu sais lister les dossiers, tu fais une boucle for sur les dossiers, et pour chaque dossier tu le supprimes uniquement si son nom commence par "OpenOffice.org", quelquechose qui ressemblera à ca :

Code:

---

1 2 3 4 5 6

for each Dossier in mesDossiers if Dossier.startswith("OpenOffice.org") then dossier.delete() end if next

---

Bon finalement, j'ai fait comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim stRep 'Nom du répertoire à parcourir Dim oFSO,oFld Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "C:\Documents and Settings\All Users\Menu Démarrer\Programmes"   If oFSO.FolderExists(stRep) Then   For each oFld in oFSO.GetFolder(stRep).SubFolders   If left((oFld.Name), 10) = "OpenOffice" Then   oFSO.DeleteFolder oFld   End If   Next End If

---

Merci pour les infos et votre excellent site :D