Scripting.FileSystemObject

Eks på noget kode:

  billedeSti = "./images/" 'Husk / skal være sidste karakter
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(server.mappath(billedeSti))

  Set fc = f.Files
  For Each fil in fc
    'tjek filen er et billede ved at kigge på extension
    if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(fil.name))) > 0 then
      'Vis billedet

    end if
  next

hvordan finder jeg ud af hvor mangen der er ?

Eagleeye ??? hvis du ønsker point må du lige huske at opratte et svar !!!!

For at tælle filerne er det to måder du kan tilføje en tæller til loopet:
  antalFiler=0
  For Each fil in fc
    'tjek filen er et billede ved at kigge på extension
    if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(fil.name))) > 0 then
      antalFiler=antalFiler+1
      'Vis billedet

    end if
  next



Du kan finde antal filer i fil collectoinen, men den tæller alle filer, men hvis du kun har billede filer i folderen bliver antalet rigtigt :)

  antalFiler = fc.Count
  For Each fil in fc
    ...