Script para obtener las subcarpetas de las subcarpetas de una carpeta

[‡‡‡ Ðξλ†Ћ Щλ†ζЋ ‡‡‡]

Que onda, como estan: 

Perdon, me extravie un poco por el trabajo, y luego por una gripa que me dio  .

he visto que declaras muchas veces el objeto Scripting.filesystemobject, y con varios nombres distintos (oCar, oLArc, oArch, etc), pero esto no es necesario, ya que de este modo creas una instancia de este objeto por cada nombre, sin embargo con que lo hagas una sola vez en todo el code ya es suficiente

Si amigo, es lo que estaba viendo en tu code:

Set objfso = createobject("scripting.filesystemobject")
Set RegFile = objfso.createtextfile("RegFile.txt",True)
Set IDir = objfso.getfolder("c:\")

Tu disculparas, pero como te comenté, soy nuevo en VBS. Nada mas porque le dedique bastante tiempo a VB antes, lo pude hacer, pero incluso el manejo de estos objetos es nuevo para mi.

Gracias por el tip  . Me falta mucho por aprender, pero ya estoy leyendo lo nuevo que has escrito en tus tutos, para volverme todo un master 

Ahora, estuve viendo tu code. Esta muy sencillo y mas compacto que el mio  .
Esta muy bueno 

Lo que me falta por aprender!!!

Pues un saludo amigo.