fylla på en array

Jag listar hur många bilder som finns i en katalog, nu vill jag få ut det i en array, hur gör jag det??

/r: löste det själv, stog lite still i huvudet :)

Skriv gärna hur du gjorde det så nån annan med samma fel kasnke lär sig också ;)

jo det var så här jag gjorde, men det vart ju inte riktigt som jag ville, nån kanske kan hjälpa mig, det är så att den listar den sista filen 2 gånger.

<%
	lokal = Server.Mappath("..\gey\gif\")

	Set fso = CreateObject("scripting.FileSystemObject")
	Set fsof = fso.GetFolder(lokal)
	Set fsofi = fsof.files

	dim antal
	antal = fsofi.Count

	dim arre(15)
	dim g
	 Response.Write(antal &" <br>")
		For Each fil in fsofi
			if right(fil.Name,4) = ".gif" then
				arre(g) = fil.Name	
			End If	
				Response.Write  arre(g) &" <br>"
			
		Next
%>

<%
lokal = Server.Mappath("..\gey\gif\")

Set fso = CreateObject("scripting.FileSystemObject")
Set fsof = fso.GetFolder(lokal)
Set fsofi = fsof.files

dim antal
antal = fsofi.Count

dim arre()
redim arre(antal-1)
dim g
g = 0
Response.Write(antal &" <br>")
For Each fil in fsofi
      if right(fil.Name,4) = ".gif" then
         arre(g) = fil.Name
         Response.Write  arre(g) &" <br>"
         g = g + 1
      end if
Next
%>

man tackar, funkade prima :birp