Lista filer i mappar.

Jag försöker mig på ett script som skall plocka fram den första filen (I bokstavsordning) i varje undermapp i en mapp som man pekar på.
Eventuellt kan man hårdkoda filnamnet, så det är just den "automatiska" listningen av mappar och undermappar jag söker.

Så här långt har jag kommit, egentligen ingenstans :) :

<%
rootname = server.mappath(".")& "/"
Dirfolder = request.querystring("dir")

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(rootname & Dirfolder)
set Files = Folder.Files

'ParentFolderName = FSO.GetParentFolderName(rootname & Dirfolder)

For each Item in Folder.SubFolders

	response.write "<a href='" & strScriptname & "?Dir=" & Item.Name & "'>" & Item.Name & "</A>"
	'response.write Item.Name
	response.write "<br>"
	i=i+1
Next

For each Item In Files

	response.write Item.Name
	response.write "<br>"
	t=t+1
Next

set Folder = nothing
set FSO = nothing
set Files = nothing
%>