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

| ||||
Utiliza: CreateObject("Scripting.FileSystemObject")
__________________ Documentación de VBScript V5.6 en Español: http://download.microsoft.com/downlo...ES/scd56es.exe |
| ||||
Código:
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 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 |
| ||||
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 |
| ||||
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 ![]() |