Tengo esto y me muestra todos los archivos bien y me permite hacer el download de casi todos, los .exe me tiran un error, me podrian decir porque.
sMapPath = Server.MapPath("./")
Dim datosUrl
datosUrl = split (Request.ServerVariables("URL"),"/",5)
datosUrlComp = ""
For i=0 to Ubound(datosUrl)-1
datosUrlComp = datosUrlComp & datosUrl(i) & "/"
Next
sMapPathUrl = "http://"&Request.ServerVariables("HTTP_HOST") & datosUrlComp
Set objFolder = objFSO.GetFolder(sMapPath)
For Each objFile In objFolder.Files
%>
<p><A href="<% = sMapPathUrl & objFile.Name %>"> <%= objFile.Name %> </A>
</p>