Cita: codigo tomado de ScriptMaster
Código PHP:
<%
' ** first, set the folder that we want to list
' ** this can also be a value passed from a form
dirname="/users/kathi/asp/samples/tut/"
mypath = "tut/"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(server.mappath(dirname))
Set filez = folder.Files
FileCount = folder.Files.Count
response.write "<center><font size=1>There are "
response.write "<b><font size=2>"
response.write FileCount & "</b></font>"
response.write " tutorials.</font></center><p>"
For Each listing in filez
TotalChars = len(listing.name)
Title = left(listing.name,TotalChars - 4)
Title = replace(Title,"_"," ")
response.write "<A HREF='" & mypath
response.write listing.name
response.write "' class=""menu"" target=""_new"">"
response.write Title
response.write "</A><br>"
Next
%>