No me abre el archivo

[dobled]

tengo este codigo para navegar y listar archivos de un directorio pero al momento de encontrarse con un archivo no me lo abre me dice que no encontro la Ruta que pasará?

<%
Ruta = Request.QueryString("Path")

If Ruta = "" then
Ruta="/"
Else
Ruta = Ruta & "/"
End if

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))
Set Subcarpetas = Carpeta.SubFolders

For Each SubCarpeta in Subcarpetas
SubCNombre = Subcarpeta.Name
%>
<a href="manuales.asp?Path=<% = Request.QueryString("Path") & "/" & SubCNombre %>"><% = SubCNombre %></A><br>
<% Next %>

<%
Set archivo = FSO.GetFolder(Server.MapPath(Ruta))
Set subarchivos = archivo.files

For Each subarchivo in subarchivos
SubFNombre = subarchivo.Name
%>
<a href="manuales.asp?Path=<% = Request.QueryString("Path") & "/" & SubFNombre %>"><% = SubFNombre %></A><br>
<% Next %>

[dobled]

Gracias de todas maneras pero ya termine este cuento, asi quedo!!

Aqui está el codigo por si lo quieren usar ---

<<<muestra las carpetas y archivos dentro de un directorio.>>>
Si lo pueden mejorar "bien" pero ya cumple con lo que quiero



<%
Ruta = Request.QueryString("Path")

Response.Write("<B>Estas en la carpeta : </B>")
Response.Write(Ruta)
Response.Write("<BR>")
Response.Write("<BR>")
Response.Write("<BR>")


If Ruta = "" then
Ruta="/"
Else
Ruta = Ruta & "/"
End if

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))
Set Subcarpetas = Carpeta.SubFolders

For Each SubCarpeta in Subcarpetas
SubCNombre = Subcarpeta.Name
%> <img src="/formulario/imagenes/BULLET_5.GIF" width="15" height="15" align="absmiddle"><a href="manuales.asp?Path=<% = Request.QueryString("Path") & "/" & SubCNombre %>">
<% = SubCNombre %></A><br>
<% Next %>

<%
Dim folder
Set folder = fso.GetFolder(Server.MapPath(Ruta))


If folder.Size > 0 Then
Response.Write "<ul>"
For Each file In folder.Files
'Esto muestra una imagen <img src=""/formulario/imagenes/file.GIF"" width=""15"" height=""15"" align=""absmiddle"">
Response.Write "<li type=""point"">"
Response.Write "<a href="""&ruta&"" & file.Name & """>"
Response.Write "" & file.Name & "</b></a>&nbsp; &nbsp;"
Response.Write "( Size: " & file.Size & " )&nbsp; &nbsp;"
Next
Response.Write "</ul>"
Else
Response.Write "<ul><li type=""circle"">No Files Uploaded.</ul>"
End If
%>