Ver Mensaje Individual
  #3 (permalink)  
Antiguo 07/09/2008, 16:18
Avatar de Shiryu_Libra
Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 2 meses
Puntos: 88
Respuesta: Generar listado Archivos Subidos al Servidor...!

Verifica y cambialo a necesidad
Código PHP:
<&#37;
response.flush()
response.Buffer=true
'obtengo el directorio físico de la carpeta donde está este script
nombre_carpeta = Server.MapPath(".") & "\"
response.write "<h1>-" & nombre_carpeta & "</h1>"
    response.flush()

'
Conecto con el sistema de archivos
set FSO 
server.createObject("Scripting.FileSystemObject")

'creo el objeto carpeta
Set carpeta = FSO.GetFolder(nombre_carpeta)
    response.flush()

'
traigo los archivos de la carpeta
Set archivos 
carpeta.Files
para cada archivo
muestro su nombre.
response.Write "<h2>ROOT</h2>"
for each nombre_archivo in archivos
    tyfile 
fso.GetExtensionName(nombre_archivo.name)
    if 
tyfile="asp" then
    response
.Write "<br>" tyfile
    response
.Write " - " nombre_archivo.name
    end 
if
    
response.flush()
next 
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra