<%
Dim objFileScripting, objFolder, strDirectoryPath
Sub IterateThroughDirectory(objFolder, strUrlPathName)
Dim objFileCollection
Dim strFilename
Dim objSubFolder
Set objFileCollection = objFolder.Files
For Each strFilename In objFileCollection
strFilename = Right(strFilename, Len(strFilename) - InStrRev(strFilename, ""))
Response.Write "<li><a href=""" & strUrlPathName & strFileName & """>" & strFileName & "</a>" & vbCrLf
Next
For Each objSubFolder in objFolder.SubFolders
IterateThroughDirectory objSubFolder, strUrlPathName & objSubFolder.Name & "/"
Next
Set objFileCollection = Nothing
End Sub
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
strDirectoryPath = Server.MapPath("/Carpeta/") & ""
Set objFolder = objFileScripting.GetFolder(strDirectoryPath)
IterateThroughDirectory objFolder, ""
Set objFolder = Nothing
Set objFileScripting = Nothing
%>