Discussion :

[ProgElecT]

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 :

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

[SfJ5Rpw8]

Bonsoir,

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

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

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

[minnesota]

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

Code :

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

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

[ProgElecT]

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

Code :

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

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.

[minnesota]

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

Code :

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

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 :

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

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)

[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