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>