Loopa igenom underkataloger utan funktion

Hej

Finns det nått sätt man kan göra detta på utan att använda sig av en funktion?

<%
Function createCategoryOptions(folderspec)
	Dim filesys, demofolder, subfol, folcoll, folist
	Set filesys = CreateObject("Scripting.FileSystemObject") 
	Set demofolder = filesys.GetFolder(folderspec)  
	Set folcoll = demofolder.SubFolders   
	Set colfiles = demofolder.files
	
	for each subfol in folcoll
	  createCategoryOptions subfol
	next	
	
	for each objFile in colfiles
	  Response.write objFile.name &"<br>"
        next
End Function
%>