Discussion :

[keely]

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

[Flamby38]

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 :

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

1
2
3
4
5
6
 
for each Dossier in mesDossiers
    if Dossier.startswith("OpenOffice.org") then
          dossier.delete()
    end if
next

[keely]

Bon finalement, j'ai fait comme ça :

Code :

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