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 %>