Listar inget (Fso)

Har ett litet script som skall lista allt i mappen Bilder. Men den listar inget.

	Dim Fso, F, Bildmapp

	Mapp = server.mappath("Bilder\")

	set Fso = Server.CreateObject("Scripting.FileSystemObject")
	set F = fso.GetFolder(Mapp)

	for each x in F.SubFolders

	Response.Write("<Img src=""Galleri/" & x.Name & """><br>")

	next