Foros del Web » Programando para Internet » ASP Clásico »

Vista de Archivos

Estas en el tema de Vista de Archivos en el foro de ASP Clásico en Foros del Web. Como va el codigo ? Por decir subo en una carpeta unos Files Y quiero que automaticamente Muestre que archivos estan ahi y si se ...
  #1 (permalink)  
Antiguo 24/06/2004, 08:42
Avatar de MartYn  
Fecha de Ingreso: junio-2004
Ubicación: MTY-Mexico
Mensajes: 49
Antigüedad: 20 años
Puntos: 0
Vista de Archivos

Como va el codigo ?

Por decir subo en una carpeta unos Files

Y quiero que automaticamente
Muestre que archivos estan ahi y si se puede, una leve descripcion.

Si hiciera links en HTML me tardaria un monton

En ASP creo que se llama Active directory, pero no le se
  #2 (permalink)  
Antiguo 24/06/2004, 10:43
Avatar de LeCLUB  
Fecha de Ingreso: abril-2003
Ubicación: Barcelona (España)
Mensajes: 205
Antigüedad: 21 años, 1 mes
Puntos: 1
Utiliza:

CreateObject("Scripting.FileSystemObject")
__________________
Documentación de VBScript V5.6 en Español:
http://download.microsoft.com/downlo...ES/scd56es.exe
  #3 (permalink)  
Antiguo 06/07/2004, 08:13
Avatar de MartYn  
Fecha de Ingreso: junio-2004
Ubicación: MTY-Mexico
Mensajes: 49
Antigüedad: 20 años
Puntos: 0
no entiendo como se usa esto :(

ya intente varias formas

como le hago o donde va esto

CreateObject("Scripting.FileSystemObject")

y que mas va ?
  #4 (permalink)  
Antiguo 06/07/2004, 08:34
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
Código:
	response.write "<table width=""100%"" align=center><tr>"
	 Set objFSO = CreateObject("Scripting.FileSystemObject")
	 Set objFolder = objFSO.GetFolder(Server.MapPath("AQUÍ_TU_PATH"))
	 j = 1
		For Each objFile In objFolder.Files
		 pathFile = "TU_PATH"&replace(replace(objFile, objFolder, ""), "\", "/")
  		 response.write "<td width=100 vAlign=center align=middle>"
		 response.write pathFile
		 response.write "</td>"
		 If j Mod 3 = 0 Then response.write "</tr><tr>"
		 j = j + 1
		Next
	response.write "</tr></table>"
	 Set objFolder = Nothing
	 Set objFSO = Nothing
COn eso muestras el PATH de los archivos que haya en la carpeta especificada. Si solo quieres mostrar el nombre, trabaja con las funciones len, replace, left, etc. y listo :P
__________________
Tu portal de manga y anime.
  #5 (permalink)  
Antiguo 06/07/2004, 08:45
Avatar de MartYn  
Fecha de Ingreso: junio-2004
Ubicación: MTY-Mexico
Mensajes: 49
Antigüedad: 20 años
Puntos: 0
ME MARCO
Error de Microsoft VBScript en tiempo de ejecución error '800a01ad'
El componente ActiveX no puede crear el objeto: 'Scripting.FileSystemObject'

/aib/platicas.asp, line 16

Es donde manda llamar
Set objFSO = CreateObject("Scripting.FileSystemObject")

Tengo que instalar alguna utileria para ese Script ?

Otra pregunta
Donde va todo el codigo ? HEAD ? antes de ? o e n el body ?

Solo le puse antes <% y al final %> para cerrar el codigo

Última edición por MartYn; 06/07/2004 a las 12:09
  #6 (permalink)  
Antiguo 06/07/2004, 12:09
Avatar de MartYn  
Fecha de Ingreso: junio-2004
Ubicación: MTY-Mexico
Mensajes: 49
Antigüedad: 20 años
Puntos: 0
pense que tal vez el problema del Scripting era habilitando el modo escritura
Pero no, al ponerlo escritura ya no pude ver nada de pagina ni html
entonces deje solo lectura el IIS
y lixto funciona todo lo HTMl

Pero lo ASP
marca

HTTP 403.1 Forbidden: Execute Access Forbidden
Servicios de Internet Information Server

porque ???
que hice mal
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:35.