Ver Mensaje Individual
  #2 (permalink)  
Antiguo 24/10/2007, 10:37
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, 1 mes
Puntos: 88
Re: Problem con asp

ok, repasando ya que lo lei en el otro post.....

en tus archivos al guardarlos, creo que mencionaste permitir al usuario 4 archivos nada mas....
la pregunta seria....

estos archivos que permites subir al servidor por usuario..... al guardarlos los renombras???

ya que si esto fuera el caso, puedes anteponerle en cualquier lugar del archivo una secuencia 1,2,3,4.....

de esta manera al realizar tu consulta con el FSO, poder realizar una sentencia similar a esto

Cita:
for i=1 to 4
if instr(file2.name,i)<>0 then
ocupados(i)=file2.name
i=10 end if
next
asi de esta forma facilitariamos muchisimo nuestro codigo y evitariamos quebradero de cabeza contra el teclado

te mando el codigo que uso para desplegar el contenido de una carpeta, subcarpetas y archivos dentro de cada galeria, enumerados

creo que puede servirte para que te sea mas sencillo lo que te propongo
Cita:
<%
'obtengo el directorio físico de la carpeta donde está este script
nombre_carpeta = Server.MapPath(".") & "\"
response.write "<h1>-" & nombre_carpeta & "</h1>"

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

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

'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
response.Write "<br>" & nombre_archivo
next


'traigo los archivos de las subcarpetas
Set archivos = carpeta.subfolders

'para cada archivo, muestro su nombre.
a=0
for each nombre_carpetas in archivos
'incremento el contador de subcarpetas
a=a+1

response.Write "<h3>" & a &".-" & nombre_carpetas &"</h3>"

Set carpetas = FSO.GetFolder(nombre_carpetas)
Set files = carpetas.Files

'para cada archivo, muestro su nombre.
'inicializo el contador
b=0
for each nombre_archivo in files
'incremento el contador de archivos por carpeta
b=b+1
response.Write "<br>"& b &".-" & nombre_archivo
next
next
en este codigo, te pudiera ayudar a ti, y la evaluacion que te mencione antes seria en la consulta a archivos dentro del ROOT, la que se encuentra en rojo

__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra