FSO Utilisation d'index

**Daniel.C** · 23/02/2017, 16h38

Bonjour,

Soit le code suivant :

Code :

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

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 ?

Nom : Capture.JPG
Affichages : 132
Taille : 20,5 Ko

**joe.levrai** · 23/02/2017, 17h25

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 :

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

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