Ver contenidos de carpetas y subcarpetas

Fuso · #1 (**permalink**) 16/12/2008, 03:50

Hola:

Queria saber como puedo aparte de ver lo que tengo en las carpetas y subcarpetas poder mostrarlo.

Me explico he hecho el codigo para poder ver el contenido de las carpetas, pero me sale un listado de dichas carpetas pero no tengo acceso a ellas, y ese es mi problem:

Os pego el codigo que tngo hecho:

Código:

<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "AKI VA LA RUTA "

Set objFolder = objFSO.GetFolder(objStartFolder)
response.write "<br>"&objFolder.Path&"<br>"&"<br>"
Set colFiles = objFolder.Files
For Each objFile in colFiles
  response.write objFile.Name&"<br>"
Next


ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
      response.write "<br>"&Subfolder.Path&"<br>"&"<br>"
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles = objFolder.Files
        For Each objFile in colFiles
           response.write objFile.Name&"<br>"
        Next
        ShowSubFolders Subfolder
    Next
End Sub

%>

Espero que me podais ayudar...

Adler · #2 (**permalink**) 16/12/2008, 05:56

Hola

Sola has de crear un vinculo

Código asp:

Ver original<a href="<%=objFolder.Path%><%=objFile.Name%>"><%=objFile.Name%></a><br>

Suerte

Fuso · #3 (**permalink**) 17/12/2008, 01:56

Gracias Adler, tengo otra duda que es parecida a esto y supongo que tú sabrás respondermela..

En este codigo, no se me ocurre que sentencia ponerle al IF.

Código:

<%
	
	Do While Not rsAux.EOF 
	If rsAux("codigo") = 
		
%>
   
   <a href="index.asp?id=<%=rsAux("codigo")%>.jpg"><img src="imagenes/<%=rsAux("codigo")%>.jpg" alt="algo" /></a><br />
<%	
		
		rsAux.Movenext
	Loop
	rsAux.Close
	Set rsAux = Nothing			
%>

El IF lo que tiene que hacer es que me muestre solamente, las fotografias correspondientes.

Voy a ser un poco mas explicito:

En la pagina index.asp, tengo unos enlaces con unas fotografias, lo que quiero es que al darle a la fotografia correspondiente me saque las de su grupo.

Están todas en la carpeta IMAGENES, pero dentro hay subcarpetas con el codigo de cada imagen...

Fuso · #4 (**permalink**) 17/12/2008, 05:25

A ver que os lo explico un poco mejor pq ni yo entiendo lo que puse

Hay dos paginas:

- index.asp
-pagina2.asp

En la primera pagina (index) tengo varias fotografias principales, correspondientes a cada grupo..

Cuando pincho en una de las fotografias principales quiero que me mande a la segunda pagina donde deben salir las restantes...

Las fotografias están todas metidas en una carpeta llamada imagenes y dentro de esta carpeta hay subcarpetas con el codigo de la foto.

Ejemplo:

Pincho en la foto 101.jpg, kiero que me mande a la pagina2.asp y me salgan todas las imagenes que estén en la subcarpeta 101.

Adler · #5 (**permalink**) 17/12/2008, 08:40

Hola

Podría ser algo como esto

Código asp:

Ver originalsubcarpeta = Request.QueryString("id")
Set objFSO = CreateObject("Scripting.FileSystemObject")
ruta = Request.ServerVariables("APPL_PHYSICAL_PATH") & "carpeta\" & subcarpeta 
Set objFolder = objFSO.GetFolder(ruta)
response.write "<br>"&objFolder.Path&"<br>"&"<br>"
Set colFiles = objFolder.Files
For Each objFile in colFiles
%>
<img src="./carpeta/<%=subcarpeta%>/<%=objFile.Name%>"/><br>
<%
Next

Suerte

Fuso · #6 (**permalink**) 17/12/2008, 17:21

Mmm puede ser si, tengo que probarlo...

Mañana te comento, muchas gracias por el interés..

Fuso · #7 (**permalink**) 18/12/2008, 02:51

Pues me temo que no funciona.

Pincho en la fotografia, me redirecciona a la segunda pagina pero una vez llegado a la segunda pagina me sale.

La ruta en la que me encuentro:

E:\Intranet\Fotos\imagenes

No encuentra la subcarpeta y me sale un recuadro de imagen con una imagen que tiene propiedad Thumbs.db

Tendria que salir por ejemplo

E:\Intranet\Fotos\imagenes\101

Siendo 101 la subcarpeta. Espero que me podais ayudar ya que no encuentro el fallo...

Adler · #8 (**permalink**) 18/12/2008, 06:03

Hola

En la pagina2.asp has de recoger el valor de la variable

subcarpeta = Request.QueryString("codigo")

Suerte

Fuso · #9 (**permalink**) 18/12/2008, 06:36

Si de ese fallo ya me habia dado cuenta, eso no es..

Adler · #10 (**permalink**) 18/12/2008, 07:47

Hola

Prueba así

ruta = "E:\Intranet\Fotos\imagenes\" & subcarpeta

<img src="<%=subcarpeta%>/<%=objFile.Name%>"/><br>

Suerte

Shiryu_Libra · #11 (**permalink**) 20/12/2008, 19:22

por que rutas fisicas y no virtuales, compañeros????

recuerden que es una web, estan mostrando caracteres en pagina no en explorador de windows

verifiquen... verifiquen....

Adler · #12 (**permalink**) 22/12/2008, 07:20

Cita:

Iniciado por Shiryu_Libra

por que rutas fisicas y no virtuales, compañeros????

recuerden que es una web, estan mostrando caracteres en pagina no en explorador de windows

verifiquen... verifiquen....

Pues, tienes toda la razón, maestro

fabian23 · #13 (**permalink**) 25/06/2012, 07:01

Cita:

Iniciado por Adler

Hola

Sola has de crear un vinculo

Código asp:

Ver original<a href="<%=objFolder.Path%><%=objFile.Name%>"><%=objFile.Name%></a><br>

Suerte

buenos dias !!! yo tengo la misma duda resulta que estoy haciendo un buscador de archivos !! en los directorios de windows donde el usuario ingresa el nombre del archivo con extension.pdf y la pagina se encarga de realizar la busqueda buscando si existe el archivo pero ese archivo se tiene que abrir !!!!! y no se como hacerlo !!! pensaba meter la variable en un input en asp y de ahi jalarlo a un javascript para abrir el pdf no se como se pueda hacer si me puedes ayudar !!!!! te lo agradeceria mucho !!