Problem con asp

[gracipr]

En otro tema anterior, planteaba el problema desde cero, aora la duda es menor,

tengo el siguiente codigo:

<form name="form">
<select name="menu" class="nuevaImagen" onChange ="irA(this)">
<%narch = split(narchivo,".")%>
<option value="">Nº<%=narch(0)%></option>
<%
'en este momento este for muestra los numeros de archivo k existen
For Each file2 in filecollection
ruta4 = "/" & carpetaarch & "/" & idreg & "/" & file2.name
texto = file2.name
cadena = split(texto,".")
if texto <> narchivo then
if texto <> "principal.jpg" then
'vecOcupados debe contener los valores que contiene cadena, asi el siguiente codigo
'podra extraer los que le faltan
vecOcupados=Array(2,4)
'response.write vecOcupados(0)
Max = 0
For i=0 To UBound(vecOcupados)
if vecOcupados(i) > Max Then Max = vecOcupados(i) End if
Next
'Dim vecFaltantes()
Cnt = -1
var = False
For i=1 To Max
For j=0 To UBound(vecOcupados)
var = vecOcupados(j) = i
if var Then Exit For End If
Next
If Not var Then
Cnt = Cnt + 1
Redim Preserve vecFaltantes(Cnt)
vecFaltantes(Cnt) = i
End If
Next
For j=LBound(vecFaltantes) To UBound(vecFaltantes)%>
<option value="imagenes_formobras.asp?num=<%=idreg%>&a=<%= narchivo%>&num1=<%=vecFaltantes(j)%>"><%=vecFaltan tes(j)%></option>
<% next
end if
end if
Next%>
</select>
</form>


el problema en este caso, y ya fui comentandolo, es que lo ay en cadena, es lo que le tengo que pasar a vecOcupados, pero siempre, me da fallo a ver si alguien me puede decir como hacerlo

gracias

[Shiryu_Libra]

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

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

<%
'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

[gracipr]

lo primero de todo cuando el usuario sube una foto esta se guarda con un numero, la renombra el programa de manera automatica.

despues lo de 4 era un ejemplo, el usuario puede subir las fotos k kiera, un ejemplo para k me entiendas, de una primera vez, sube 6 fotos, pero resulta k al dia siguiente borra dos de ellas, y los numeros ya no serian correlativos, es decir ya no estarian ordenados, lo que pretengo yo es que al borrar esas fotos en un combo aparezcan esos dos numeros k kedaron vacios al borrar dichas fotos, ejemplo, tenia 6 fotos y borro la 3 y la 5, pues k en el combo aparezcan eses dos numeros, y el 1,2,4,6 no xk ya estarian ocupados.

no se si me explique mejor. de todas formas gracias por la ayuda, el codigo k me pasaste ya lo abia visto, y es algo parecido a lo que tengo al principio solo que luego hago que cuente los numeros que estan vacios, en ese codigo le puse en un array a la suerte, pero lo que intento saber es como le puedo pasar lo que tengo en la variable cadena, para que el codigo me coja esos datos.