Hola a todos:
Estoy intentando hacer una galería de imágenes. Lo primero que quiero hacer es un formulario que revise una determinada carpeta de mi disco duro (que será la que contenga las fotografias) e inserte los nombres de las fotografias en una base de datos.
Estoy comprobando que me liste los ficheros de cualquier carpeta y es donde me da el error.
La ruta la introduzco en el campo "buscarfotos" del formulario pero en vez de listarme los ficheros que contiene esa carpeta me muestra siempre el formulario (da igual que los campos esten vacios o llenos de texto).
He revisado la lógica del programa y si los campos del formulario están vacios debe mostrar el formulario, de lo contrario si contienen algún texto entonces debe listar por pantalla el contenido del campo "buscarfotos" del formulario.
Les envio el código a ver si me pueden indicar donde falla el programa. Y gracias a todos.
Código:
---------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<!--Incluimos el fichero de constantes-->
<!--#INCLUDE file="adovbs.asp"-->
<%
IF (request.form <> "") then
'Variable "Directorio" para poder cambiar la carpeta de busqueda según el contenido de la variable
dim directorio
request.Form("buscarfotos") = directorio
'Crea el objeto FSO
Set ObFSO=Server.CreateObject("scripting.FileSystemObj ect")
'Crea el objeto carpeta y selecciona la carpeta en la que estan los archivos
Set ObCarpeta= ObFSO.getfolder(Server.MapPath(directorio))
'Nos muestra el nombre de nuestra carpeta en la web
response.Write "El directorio de búsqueda es: " & ObCarpeta.name &"<br>"
'Busca todos los archivos de la carpeta y nos devuelve el nombre
For Each Fichero in ObCarpeta.files
response.write fichero.name &"<br>"
next
Set Fichero = Nothing
Set ObCarpeta = Nothing
Set ObFSO= Nothing
ELSE
%>
<form action="portada.asp" method="post" enctype="multipart/form-data" name="form1">
<p>En que carpeta busco las fotos
<input name="buscarfotos" type="text" id="buscarfotos" size="80" maxlength="100">
<br>
ID Usuario
<input name="idusuario" type="text" id="idusuario" size="5" maxlength="5">
<br>
<input name="Submit" type="submit" id="Submit" value="Enviar">
<input name="Submit2" type="reset" id="Submit2" value="Restablecer">
</p>
</form>
<%END IF%>
</body>
</html>
------------------------------------
Fin del código.