Problemas al listar archivos del directorio para download

[lenz]

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>

[AlZuwaga]

Si sólo tenés problemas con los .EXE, no debe ser un error de código sino otra cosa como alguna resticción en tu navegador o en un firewall, etc.

[AlZuwaga]

Bueno, lo probé y efectivamente NO es un error en el código. Y, por cierto, te falta un 'next' al final y la declaración del objeto 'filesystemobject'.. para la próxima, y para facilitar el trabajo a quien quiera ayudarte, se agradece que coloques el código completo.

También sería bueno, ya que decís que los exe te tiran un error, que nos digas cuál es el error en cuestión.

saludos

[lenz]

Aqui va el codigo completo

'File System Object
Dim objFSO
'File Object
Dim objFile
'Folder Object
Dim objFolder
'String To Store The Real Path
Dim sMapPath
'Create File System Object To Get list of files
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get The path For the web page and its dir.
'change this setting To view different directories
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 the object folder To the mapped path
Set objFolder = objFSO.GetFolder(sMapPath)
'For Each file In the folder
For Each objFile In objFolder.Files
%>
<TR align="left" valign="top" bordercolor="#999999" bgcolor="#FFFFFF">
<TD> <FONT size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><A href="<% = sMapPathUrl & objFile.Name %>">
<%
'write the files name
Response.Write objFile.Name
%>
</A>
</FONT>
</TD>
<TD>
<FONT size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">

<%
'We will format the file size so it looks pretty
if objFile.Size <1024 Then
Response.Write objFile.Size & " Bytes"
ElseIf objFile.Size < 1048576 Then
Response.Write Round(objFile.Size / 1024.1) & " KB"
Else
Response.Write Round((objFile.Size/1024)/1024.1) & " MB"
End if
%>
</FONT>
</TD>
<TD>
<FONT size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<% 'the files Date
Response.Write objFile.DateLastModified
%>
</FONT>
</TD>
</FONT>
</TD>
</TR>
<%
Next
%>
</TABLE>
</BODY>
</HTML>


Y el error

http://nuva4/Doc/arcsetup.exe

No se encuentra la página
Puede que se haya quitado la página que está buscando, que haya cambiado su nombre o que no esté disponible temporalmente.

--------------------------------------------------------------------------------

Pruebe lo siguiente:

Si escribió la dirección de la página en la barra de direcciones, compruebe que la ha escrito correctamente.

Abra la página principal nuva4 y busque vínculos a la información que desee.
Haga clic en el botón Atrás para probar con otro vínculo.
HTTP 404 – File not found
Servicios de Internet Information Server


--------------------------------------------------------------------------------

Información técnica (para personal de soporte)

Más información:
Soporte técnico de Microsoft

[AlZuwaga]

Nuevamente, probando tu código, me funciona correctamente. Me lista los archivos de la carpeta donde se encuentra la página con ese script y me permite acceder a los archivos ya sea para visualizarlos como para descargarlos.

[lenz]

Me fijare el tema de configuracion entonces.