Précisons d'entrée que je travaille seulement en OOBasic où la boucle "For each F1 in FF / Next" si prisée chez Microsoft n'existe pas.

Donc j'essaye d'utiliser les objets Vb Microsoft pour accéder à des arborescence
Windows.

Le code suivant me donne des soucis : Sub Menu(chemin As String) Dim fs As Variant, repertoire As Variant Dim FF As Object, F1 As Object Dim UnFold As Object, lePath As String Dim i As Long

Set fs = CreateObject("Scripting.FileSystemObject") 'object MS Set repertoire = fs.getfolder( chemin ) 'parait OK Set FF = repertoire.getValue('SubFolders") 'OK le mot clé existe i = FF.getValue("Count") 'mot clé existe et ça vaut
2 'Là je cale Set F1 = FF.getValue(" quelle clé ? ") 'pour avoir la collection 'des folders
extraite For j = 0 To i-1 UnFold = F1.getByIndex(j) 'Pour isoler les répertoires msgbox UnFold.getValue("Path") 'et afficher leur nom Next End Sub

Quelqu'un a-t-il déjà fait ce type d'accès en OOBasic au sein des objets MSO FileSystem ? Comment avoir les mots clés ?

Merci d'avance pour toute idée Jean-Marc