Collection Files de FileSystemObject, choix de l'Item

Version imprimable

Salut
Est-il possible d'accéder directement à un Item(n) de la collection Files de FileSystemObject sans passer par une boucle For Each .... Next?
Mes essais

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim stRep 'Nom du répertoire à parcourir
Dim oFSO, oFld, oFiles
Dim PrimFichier
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Program Files\CaptEcran"
If oFSO.FolderExists(stRep) Then
    Set oFld = oFSO.GetFolder(stRep)
    Set oFiles = oFld.Files
    If oFiles.Count <> 0 Then
        'pas de probléme
        For Each PrimFichier In oFiles
            MsgBox PrimFichier.Name
            Exit For
        Next
        'Set PrimFichier = oFiles.Items(1) 'L'objet ne gère pas cette propriété ou cette méthode
        'Set PrimFichier = oFiles.Items("1") 'L'objet ne gère pas cette propriété ou cette méthode
        'Set PrimFichier = oFiles.Items() 'L'objet ne gère pas cette propriété ou cette méthode
 
        'Set PrimFichier = oFiles.Item(1) 'Argument ou appel de procédure incorrect
        'Set PrimFichier = oFiles.Item("1") 'Fichier introuvable
        'Set PrimFichier = oFiles.Item() 'L'objet ne gère pas cette propriété ou cette méthode
 
        'Set PrimFichier = oFiles.Files(1) 'L'objet ne gère pas cette propriété ou cette méthode
        'Set PrimFichier = oFiles.Files("1") 'L'objet ne gère pas cette propriété ou cette méthode
        'Set PrimFichier = oFiles.Files() 'L'objet ne gère pas cette propriété ou cette méthode
 
        'Set PrimFichier = oFiles.file(1) 'L'objet ne gère pas cette propriété ou cette méthode
        'Set PrimFichier = oFiles.file("1") 'L'objet ne gère pas cette propriété ou cette méthode
        'Set PrimFichier = oFiles.file() 'L'objet ne gère pas cette propriété ou cette méthode
    End If
End If

Bonsoir,

je dirais que non .. c'est pas possible ... l'on peu tricher , en utilisant un tableau supplémentaire pour stoker "les clefs" ...:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 Dim tb()
 Dim i  
...
    If oFiles.Count <> 0 Then
        'pas de problème
        i = 0
        For Each PrimFichier In oFiles
            tb(i) = PrimFichier.Name
            i = i + 1
        Next
 
 
        Set PrimFichier = oFiles(tb(1))
 
....

11/07/2010, 11h10
ProgElecT

Salut bbil

Merci d'avoir confirmé se que j'avais fini par penser, mais j'espérai avoir raté cette information dans mes recherches sur le site.
11/07/2010, 16h04
minnesota

En fait, l'item s'utilise comme ceci :

Code:

Set PrimFichier = oFiles.Item("nom du fichier")
11/07/2010, 18h41
ProgElecT

Citation:

Envoyé par minnesota

En fait, l'item s'utilise comme ceci :

Code:

Set PrimFichier = oFiles.Item("nom du fichier")

Oui bien sûr, mais moi je ne desire que recuperer le nom du premier fichier et, quand je suis branché sur le dossier (GetFolder("Chemin et nom du dossier"))
, je ne connais pas son nom, merci quand même.

J'avais bien compris, c'était juste pour info au cas où. :mrgreen:
Cela dit, comme tu fais
Code:

1 2 3 4 5 For Each PrimFichier In oFiles MsgBox PrimFichier.Name Exit For Next
rien ne t'empêche d'y introduire un objet "Dictionary", tu gagnerais en flexibilité par rapport à ce que tu cherches à faire.

exemple :
Code:

1 2 3 4 5 6 7 8 9 Set fso = CreateObject("Scripting.FileSystemObject") Set files = fso.GetFolder("chemin dossier").Files Set dic = CreateObject("Scripting.Dictionary") Dim file For Each file In files dic.add dic.count, file Next wscript.echo dic.Item(2)

12/07/2010, 11h32
omen999

salut,
la propriété item de l'objet collection vbscript ne supporte pas les index numériques
sur le plan de la structure, un objet collection est une liste chainée couplée à une table de hashage pour accélérer l'accès à un item donné (voir ici)
le seul moyen consisterait à rechercher dans la structure de la variable le pointeur de la liste chainée et lire son 1er item...
n'hésitez pas à poster votre contribution :mrgreen: