Alguien sabria decirme que pasa......

kachalot · #1 (**permalink**) 09/07/2004, 01:30

Alguien sabría decirme por que no escribe nada?? Lo que deberia hacer es escribir el nombre de los archivos!!!!

<HTML>
<HEAD>
<TITLE>L/TITLE>
</HEAD>

<BODY>
<%
'nos crea el Objeto FSO

Response.Write "pMa"

Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")

'nos selecciona la carpeta en la que esta el archivo
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath("/InsertarBD/images"))

'nos comienza a listar los archivos
Response.Write ""
'Nos muestra el nombre de nuestra carpeta en la web devuelta
Response.Write "" & ObjetoCarpeta.Name & ": "

'busca en todos los archivos que encuentra en dicha carpeta y nos devuelve el nombre
For Each Fichero in ObjetoCarpeta.Files
Response.Write Fichero.Name & " "
Response.Write "pMa"

Next

Response.Write ""

Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing
%>
</BODY>
</HTML>

unholy · #2 (**permalink**) 09/07/2004, 03:43

Pero tampoco escribe la primera ocurrencia de Response.write "pMa"?

tomyguan · #3 (**permalink**) 09/07/2004, 04:31

Hola

Ves primero paso por paso empieza con un response.end despues de la primera ocurrencia del response.write y si la imprima trasladalo a otro puento del codigo caliente....

Un saludo....
www.bdnwebsolutions.com (Proceso de pruebas proxima inaguración)

kachalot · #4 (**permalink**) 09/07/2004, 07:43

No escribe nada, y aparentemente esta todo bien, NO??????????????????

Myakire · #5 (**permalink**) 09/07/2004, 09:25

Modifica este código:

Código:

<form action=FSO.asp method=post>
<%
set FSO = server.createObject("Scripting.FileSystemObject")

dim carpeta

if (request.form="") then
    set discoC = FSO.GetDrive("c")
    set carpeta = discoC.rootFolder
    response.write "Accediendo a la Raiz<p>"
else
    strCarpeta = request.form("carpeta")
    set carpeta = FSO.getFolder(strCarpeta)
    response.write "Accediendo a la carpeta: " & strCarpeta & "<p>"

    if (not carpeta.isRootFolder) then
       carpeta_padre = carpeta.parentFolder.path
       response.write "Volver a: <input type=submit name=carpeta value='" & carpeta_padre & "'><p>"
    end if
end if

set coleccionCarpetas = carpeta.subFolders

for each carpeta in coleccionCarpetas
    response.write "<input type=submit name=carpeta value='" & carpeta.path & "'><br>"
		for each archivo in carpeta.Files
    		response.write "&nbsp;&nbsp;&nbsp;"& archivo.name & "<br>"
		next
next

%>
</form>

Saludos

orharo2003 · #6 (**permalink**) 09/07/2004, 09:37

Amigos.. les falta ser más observadores:

No escirbe nada ni lo hará porque si se encuentra la etiqueta TITLE mal el navegador truena OJO!!!!

Chequenlo: Ahi está el ERROR!!!!

kachalot · #7 (**permalink**) 09/07/2004, 09:52

Joer!!! Q cagadon acabo de cometer!!!!!!!!!!!!!!!

BUUFFFFFFFFFF...lo siento mucho por haberos hecho pensar tanto y que perdais vuestro tiempo conmigo para esa cagada. De todas formas estoy muy agradecido a todos y a este foro por la gente tan estupenda que hay.

Gracias orharo, has estado muy habil.

Gracias Mykire, de todas formas voy a probar lo que me dices.

....y seguro que me surgiran mas errores. Estoy intentando hacer una galeria de imagenes para editar fotos.

SALUDOS

kachalot · #8 (**permalink**) 09/07/2004, 10:21

Siguiendo con el codigo de arriba, alguien sabria como podria hacer para que el.....
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath("/InsertarBD/images"))

sea variable???

Es decir, que haya un boton, por ejemplo de examinar, que selecciones una carpeta, y sea esa, sobre la que trabajara.

Alguien tiene alguna idea????

Gracias!!!!!!!!!

Myakire · #9 (**permalink**) 09/07/2004, 14:05

El código que te puse pone un boton por cada carpeta, el nombre de los archivos es solo texto.

Saludos