FSO Utilisation d'index

Bonjour,

Soit le code suivant :

Code:

---

1 2 3 4 5 6 7

Sub test() Dim FSO As Object, Dossier As Object, Var As Object Chemin = "C:\Users\dcola\Documents\Donnees\Daniel\mpfe\Marc\commun équipes EDUCATIVE" ' à modifier Set FSO = CreateObject("Scripting.FileSystemObject") Set Dossier = FSO.getfolder(Chemin) Set Var = Dossier.subfolders(1) End Sub

---

Pourquoi la ligne "Set Var..." provoque-t-elle une erreur d'exécution 5 alors qu'il y a trois sous-dossiers ?

Pièce jointe 247787

Bonjour,

sans passer par une boucle qui balaye la collection SubFolders, je crois qu'on doit nommer le nom du dossier et qu'on ne peut pas utiliser son index de collection... enfin après avoir tenté diverses choses comme passer par les propriétés .Item je n'y suis jamais parvenu

Code:

---

Set Dossier = FSO.getfolder(Chemin).subfolders("NomDuDossier")

---

Si le nom du dossier n'est pas connu (ce qui est logique, sinon on le choppe via GetFolder !) et qu'on veut le premier, on peut par exemple ruser avec une boucle For Each toto in Dossier.Subfolders et sortir de la boucle immédiatement après avoir affecté toto à une autre variable objet

Ps : sans connaître la finalité de ton projet, je ne me risque pas à proposer de s'orienter vers Dir()

Bonjour,

tout comme Joe !   Mais FSO étant une tortue notoire, je conseillerais évidemment la fonction VBA Dir …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Merci pour vos réponses.

Bonjour,
https://www.developpez.net/forums/d1...double-boucle/

Bonjour,

Merci. Cependant, on ne fait pas tout avec Dir, notamment la gestion des drives.

Tu dans le lien ma vision avec module de calls et fso

Et la mienne est aussi dedans, merci Robert !

Bonjour Marc,
la pour le coup je suis égoïste, mais comme il disait qu Dir ne faisait pas tous!

dailleur je pointe sur la page pas sur mon poste :mouarf3: