La collection ASP FileSystemObject n'est pas accessible par l'index

Question

Est-ce que je deviens fou? Je ne trouve pas un moyen d'obtenir le premier fichier dans un dossier avec le FileSystemObject (ASP classique). Avec la plupart des collections, vous pensez que l'index 0 ou 1 peut fonctionner, mais IIS dit "Appel ou argument de procédure invalide".

Aucune de ces 2 dernières lignes fonctionnent:

Set oFileScripting = CreateObject("Scripting.FileSystemObject") 
Set oFolder = oFileScripting.GetFolder(sFolder) 
Set oFiles = oFolder.Files 
If oFiles.Count = 0 Then Response.Write "no files" 
Response.Write oFiles(0).Name 
Response.Write oFiles.Item(1).Name 

Suis-je méga-bête, ou est-il pas moyen d'utiliser un index pour accéder à cette collection particulière?

Answer 1

La collection de fichiers est pas un tableau, et ne contient pas la fonctionnalité d'accès aléatoire. Si vous avez absolument besoin de cette fonctionnalité, la chose la plus proche pour l'imiter serait de parcourir le dossier et de créer un nouveau tableau contenant les noms des fichiers trouvés, utiliser ce nouveau tableau comme source d'accès aléatoire et créer des objets File à partir du Valeurs de tableau

ReDim FileArray(oFiles.Count) 

i = 0 
For Each oFile In oFiles 
    FileArray(i) = oFile.Name 
    i = i + 1 
Next 

Set oFile = oFileScripting.GetFile(sFolder + "\" + FileArray(0)) 

Je ne recommanderais certainement pas cela si c'est à éviter.

Answer 2

Non, mais vous pouvez les énumérer et de suivre l'index vous:

Set oFileScripting = CreateObject("Scripting.FileSystemObject") 
Set oFolder = oFileScripting.GetFolder(sFolder) 
Set oFiles = oFolder.Files 
If oFiles.Count = 0 Then Response.Write "no files" 

i = 0 
For Each oFile In oFiles 
    Response.Write i & " = " & oFile.Name 
    i = i + 1 
Next