Bueno, la solución de
gankutsuo es mucho más completa, pero dejo este otro por si a alguien le sirve de algo, a mi me llevó 3 minutos modificar un script anterior
Set objfso = createobject("scripting.filesystemobject")
Set IDir = objfso.getfolder(wscript.arguments(0))
ListDirs(IDir)
Function ListDirs(IFol)
if len(IFol.path)>256 then wscript.echo IFol.path
Set SubsIFol = IFol.subfolders
On error resume next
For each SF in SubsIFol
ListDirs(SF)
Next
End Function
Es un
vbscript, así que se copia en un notepad y se guarda con extensión
vbsLuego se ejecuta desde línea de comandos pasando como parámetro la ruta de la carpeta.
C:\>cscript /nologo elscript.vbs C:
Y si quieres exportarlo a un archivo lo haces simplemente redireccionando
C:\>cscript /nologo elscript.vbs C: > log.txt
Saludos
Queria hacer unas preguntas porque no lo he podido ejecutar:
Cuando pongo:
C:\>cscript /nologo elscript.vbs C:
Me devuelve:
"cscript" no se reconoce como un comando interno o externo,
programa o archivo por lotes ejecutable.
y Cuando lo ejecuto así solo pasandole una carpeta obtengo:
Porque viene siendo?
Saludos
Mostrar Mensajes
