Bestemt fil fra Files collection

count = 0
For Each objFile in objFiles
count = count + 1
  if count = 3 then
    ' gør noget ved hver fil - udskriv evt. navnet....
  end if
Next

Ja det er også den workaround jeg ville bruge. Men man burde da kunne tilgå en collection via at index. Ellers kan man jo heller ikke iterere det.

Så vidt jeg kan se kan du ikke umiddelbart tilgå filerne på denne måde.
Hvis du prøver noget med:

Dim scobj As Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim fls As Scripting.Files

Set scobj = New Scripting.FileSystemObject

Set fld = scobj.GetFolder("C:\folder")
Set fls = fld.Files

debug.Print fls.Item(1).Name

Dette genererer en run-time fejl.

Du kan evt. oprette din egen collection når du alligevel ittererer filerne. Du kan f.eks. et Dictionary object. Det er lidt ligesom et Array - bortset fra at du her kan spørge direkte på f.eks. navnet på en fil - da objektet oprettes med key, values - f.eks. 1, filnavn1  2, filnavn2  3, filnavn3 - herefter kan du umiddelbart spørge på din key - og få din value ud.

Der ville jo ikke være en ide i at allokere yderligere hukkommelse til en ny collection og i øvrig alligevel iterere den gamle for at kopiere elementerne heroveri.

Det eneste jeg ville, var at hære, om selve Files collection havde mulighed for at tilgå sine elementer via deres index.

Jeg har brugt den workaround, som cesil har anbefalet. Dog har jeg gjort det ud fra min egen tankegang og desuden før cesil oprettede sit svar.

Dette, og det, at der kun er tale om en workaround, er min begrundelse for ikke at give points for det svar selvom jeg det åbenbart er det bedste bud.

Disse forslag til "workarounds" ser jeg som et tegn på, at FSO Files collection ikke kan gøre hvad jeg søger, så jeg vælger at lukke spm. her.

Kan man ikke acceptere sine egne svar mere, eller er jeg blevet blind?

Svar

Jeg kan ikke acceptere mit eget svar.... Hvis noget vil have 60 points så smid et svar her...

SVar!?!?

Jeg kan da godt lave et svar, hvis det virker så laver jeg bare et nyt til dig hvor du får dine point igen.

Det virkede.... ekperten bug?

Behold du bare de points :o)

Næ, jeg laver lige et spm. til dig, jeg har jo ikke deltaget i tråden :-)

Og de er her http://www.eksperten.dk/spm/410055