<%

Function ShowFileList(folderspec)

Dim fso, f, f1, fc, rs, s

const adVarChar = 200

set rs = Server.createobject("adodb.recordset")



rs.fields.append "myField", adVarChar, 255

rs.open



Set fso = server.CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(folderspec)

Set fc = f.Files

For Each f1 in fc

rs.addnew array("myField"), array(f1.name)

Next



rs.sort = "myField ASC" 'use "myField DESC" for reverse order



rs.moveFirst



do until rs.eof

s = s & rs.fields("myField") & "<BR>"

rs.moveNext

loop

rs.close

set rs=nothing

set fso=nothing

ShowFileList = s

End Function



Response.write ShowFileList(Server.MapPath("."))

%>