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