Deje asi el codigo ,, ahora me muestra los archivos y las carpeta OK
pero no me habre los archivos me dice que no encuentra la ruta
<%
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 %>