Recorrer una coleccion 2 (dos) veces...

[DanielRey]

Hola :)

Hice una paginita que simplemente lee los archivos y carpetas de un directorio y los muestra en un formato bonito.

El problema es que al usar el comando "For Each" debo recuperar las carpetas por un lado con el método "SubFolders" y los archivos por otro con "Files".

No hay problema, me dije, recorro dos veces la colección y ya está. :)

ERROR. :( Cuando recorro la colección, parece que usa algún tipo de apuntador interno que queda mirando al final y cuando quiero volver a usar el For Each, "peta"

Lo he solucionado "provisoriamente" creando dos objetos que apuntan a la misma carpeta, uno lo recorro para las carpetas y luego recorro el otro en busca de los archivos

Si bien funciona, no me parece adecuado ni elegante ni nada, me parece una chastrinada

¿Alguien sabe si se puede volver a cero el apuntador y como hacerlo?

Esto es un fragmento del código que estoy usando ahora:

Código:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  
Set filesFolder = objFSO.GetFolder(ruta)
Set foldersFolder = objFSO.GetFolder(ruta)

For Each objFolder in foldersFolder.SubFolders
Response.Write objFSO.GetFileName(objFolder)
Next
For Each objFile in FilesFolder.Files
Response.Write objFSO.GetFileName(objFile)
Next

Gracias ;)

<table><tr><td><IMG src=banderas/argentina.gif></td><td><small>Alta en el cielo, un águila guerrera<br>audaz se eleva, en vuelo triunfal.<br>Azul un ala, del color del cielo.<br>Azul un ala, del color del mar.</small></td></tr></table>

[AlZuwaga]

Hola Dani, yo tengo algo así:

Código:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))
Set ArchivosDelDir = Carpeta.Files
Set Subcarpetas = Carpeta.SubFolders


For Each SubCarpeta in Subcarpetas
SubCNombre = Subcarpeta.Name
SubCPeso = Subcarpeta.Size 'esto está al dope porque no funciona :(

'acá hay ASP intercalado en HTML que no viene al caso
'pero la idea es mostrar las carpetas

Next

For Each Archivo in ArchivosDelDir
Archivos = Archivo.name
Peso = Archivo.Size 'esto si que funca ;)

'acá hay ASP intercalado en HTML que no viene al caso
'pero la idea es mostrar los archivos

Next

[DanielRey]

Voy a empezar a pensar que si Dazuaga no lo sabe, es porque en ASP no se puede hacer;)

Garciosísimas Diego.
You are the best!!

[AlZuwaga]

no seas güebón, que no soy ningún genio

lo que no entendí es si:

A) No querés crear dos instancias a &quot;GetFolder&quot; o..

B) Pretendés recorrer las dos colecciones (filesFolder y foldersFolder) con un solo For Each

Si es la &quot;A&quot;, fijate que yo uso una sola instancia a GetFolder
Si es &quot;B&quot;... NO LO SE

[DanielRey]

La pregunta era &quot;B&quot;, pero &quot;A&quot; me parece lo suficientemente buena, de todos modos, si alguien por ahí sabe si se puede y como se hace &quot;B&quot;, soy todo oidos.