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