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

leer archivos de un directorio en xlm y asp

Estas en el tema de leer archivos de un directorio en xlm y asp en el foro de ASP Clásico en Foros del Web. Hola; Soy novato en asp, y necesito leer los archivos de un directorio y generar con ellos un archivo mxl con codigo asp, ya que ...
  #1 (permalink)  
Antiguo 03/01/2010, 07:40
 
Fecha de Ingreso: enero-2010
Mensajes: 6
Antigüedad: 14 años, 2 meses
Puntos: 0
leer archivos de un directorio en xlm y asp

Hola;

Soy novato en asp, y necesito leer los archivos de un directorio y generar con ellos un archivo mxl con codigo asp, ya que aunque se hacerlo en php, el servidor para el que me lo piden no admite este sistema, por lo que me es indispensable.

Agradezco vuestra ayuda, os paso el codigo en php que uso, por si alguien lo puede converitr a asp.

Código PHP:
<?php
// archivos que no quiero que lea del directorio
$No=array(".","..","lista.php","Imagenes.html","Imagenes.swf","Subir.swf","Subir.fla","Subir.html","Subir_fotos.html", );
$fp=opendir(".");
echo 
"<?xml version='1.0' ?".">";
echo 
"<files>";
while (
false!==($file=readdir($fp))){
    if ((!
in_array($file,$No))&&(is_readable($file))){
        echo 
"<files2>";
        echo 
"" .utf8_encode($file)."";
        echo 
"</files2>";
    }
}
closedir($fp);
echo 
"</files>";
?>
un saludo.
Toni
  #2 (permalink)  
Antiguo 04/01/2010, 14:51
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 2 meses
Puntos: 98
Respuesta: leer archivos de un directorio en xlm y asp

Hola tonimoran, trata algo como esto:

Código ASP:
Ver original
  1. <&#37;
  2. Function ArchivoEnArray(archivo, esteArray)
  3.     Dim archivoExiste, i
  4.     archivoExiste = false
  5.    
  6.     if isArray(esteArray) then
  7.         for i = 0 to uBound(esteArray)
  8.             if archivo = esteArray(i) then
  9.                 archivoExiste = true
  10.                 exit for
  11.             end if
  12.         next
  13.     end if
  14.     ArchivoEnArray = archivoExiste
  15. End Function
  16.  
  17.  
  18.  
  19. Dim fso, folder, archivo, dir
  20. 'Aqui van los nombres de los archivos que no quieres mostrar
  21. noArray = Array("index.asp", "imagenes.html", "subir.swf")
  22.  
  23. 'Aqui va la ruta al folder
  24. dir = Server.Mappath(".\unfolder")
  25. Set fso = Server.CreateObject("Scripting.FileSystemObject")
  26. Set folder = fso.GetFolder(dir)
  27.  
  28. Response.ContentType = "text/xml"
  29. Response.Write("<?xml version='1.0' ?>")
  30. Response.write("<files>")
  31. for each archivo in folder.files
  32.     if not ArchivoEnArray(archivo.name, noArray) then
  33.         Response.write("<files2>")
  34.         Response.write(archivo.name)
  35.         Response.write("</files2>")
  36.     end if
  37. next
  38. Response.Write("</files>")
  39. Set fso = Nothing
  40. Set folder = Nothing
  41. %>

Saludos
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #3 (permalink)  
Antiguo 05/01/2010, 12:20
 
Fecha de Ingreso: enero-2010
Mensajes: 6
Antigüedad: 14 años, 2 meses
Puntos: 0
Respuesta: leer archivos de un directorio en xlm y asp

Gracias por la solucion, va genial, es justo lo que necesitaba para mi galeri ade imagenes en asp.

Un saludo
Toni
  #4 (permalink)  
Antiguo 05/01/2010, 12:28
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 2 meses
Puntos: 98
Respuesta: leer archivos de un directorio en xlm y asp

Por nadas
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway

Etiquetas: asp, directorio
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 07:48.