I want to quickly get a list of subfolders in a folder & also then the files in each folder.

I can get my list easy enough using a very basic script

<% 
    folder = "C:\" 
 
    set fso = CreateObject("Scripting.fileSystemObject") 
    set fold = fso.getFolder(folder) 
    for each file in fold.files 
        response.write file.name & "<br>" 
    next 
    set fold = nothing: set fso = nothing 
%>

How do I sort my files ???

Is there any easy way or do I need to put the results into a recordset. I have found some examples but some look really code intensive for something that should be I feel relatively simple.

Oh p.s if I want to count the files in the subfolder is there an easy way of doing that ???

Sorting files
http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=118

counting the files

dim files, count
set files = fold.files
count = files.count

Is there an easy way to apply that to the content of each subfolder ???

Dim iCurrentCell
folderspec = Server.MapPath("/graphics/.")
strPath=Server.MapPath ("/graphics/gallery/.") 
Set myFSO = Server.CreateObject("Scripting.FileSystemObject")
Set galleryFolder = myFSO.GetFolder(strPath)
Set folcoll = galleryFolder.SubFolders


Response.Write "The folders in the <b>" & galleryFolder.Name & "</b> Folder are: <br> <br>"%>
</p>

<%
For Each subfol in folcoll
Response.Write  "<a href='photos.asp?f=" & subfol.name & "'>" 
Response.write  subfol.Name & "</a><br/>"
Response.write ""
'iCurrentCell = iCurrentCell + 1
'If iCurrentCell > 2 then 
'Response.Write(" ")
'iCurrentCell=1
'End if
Next 

set myFSO = nothing

My workaround was to include a new FSO object that looked into & counted the content of each subfolder but that seems laborious for simply counting ?