09/07/2004, 01:30
|
 | | | Fecha de Ingreso: mayo-2004 Ubicación: Castellon
Mensajes: 173
Antigüedad: 21 años Puntos: 0 | |
| Alguien sabria decirme que pasa......
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 "<FONT FACE=Verdana SIZE=2>"
'Nos muestra el nombre de nuestra carpeta en la web devuelta
Response.Write "<B>" & ObjetoCarpeta.Name & "</B>:<BR>"
'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 & "<BR>"
Response.Write "pMa"
Next
Response.Write "</FONT>"
Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing
%>
</BODY>
</HTML> |