Hej!
Jag laddar in en massa sökvägar till bilder i en array men har fått problem...

Hur får man reda på antalet gif-bilder i en mapp?
Den här koden laddar ju bara in tre bilder, säg att man har 500 bilder, då blir det ju lite jobbigt att skriva in Dir 500 gånger!
Och om man skriver in fler Dir än vad det finns bilder blir det ju error, och det vill man ju inte!
Så vad ska jag göra, någon som har förslag?

Bild = Array(Dir("C:\Mina Bilder\*.gif"), Dir, Dir)

Ale Thoor

Dim strBild() As String
Dim intCount As Integer
Dim strFilename As String

strFilename = Dir$("C:\Mina Bilder\*.gif")
intCount = -1

While strFilename <> ""
intCount = intCount + 1
ReDim Preserve strBild(intCount)
strBild(intCount) = strFilename
strFilename = Dir$
Wend