Estás seguro que no está disponible algo como esto:

Saludos

Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarC:\WINDOWS\system32;
Cita de: Novlucker en 3 Marzo 2011, 12:31 PM
Es que no me estas leyendo, dije que el script esta mal, solo informa de rutas de carpetas de más de 256 caracteres y no de archivos, este si tiene que funcionar.
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 FilesIFol = IFol.files
For each FF in FilesIFol
if len(FF.path)>256 then wscript.echo FF.path
Next
Set SubsIFol = IFol.subfolders
On error resume next
For each SF in SubsIFol
ListDirs(SF)
Next
End Function
Saludos
Cita de: sapito169 en 3 Marzo 2011, 02:38 AM
el mejor ide para que comiences si de verdad quieres certificarte y ser un buen programador definitivamente es blog de notas
sobre lo de productividad lo mas probables es que jales si intentas certificarte por comenzar usando un ide "para la productividad" debido a que en la certificación te obligan a que sepas a fondo lo que haces cosas que el ide te enmascara y te oculta y te crea un falta ilusión de conocimiento justo ay temas de como compilar como empaquetar como distribuir etc y te piden que sepas como lo haces a mano asi se aseguran a certificar a gente con conocimientos profundos del lenguaje
Cita de: pitoloko en 2 Marzo 2011, 19:29 PMeh? No te sale! El del lado izquierdo es el de Nov y el derecho es el mio.... pensé que el de Nov sacaba algo por pantalla, pero analizando el código veo que no lo hace y el proposito es pasar la salida al txt..... el problema es que el txt que genera esta vacio sin la ruta de prueba que he puesto para la comprobación, no se si es error mio o algo en el vbs!
Pues ya tienes más suerte que yo, porque a mi no me sale NADA xD.
ni las rutas con los ¡OK! ni nada...
Cita de: rconde79 en 2 Marzo 2011, 19:18 PM
Comprobado y funcionando!
Enhorabuena gankutsuo. Has hecho un programa magnífico. Esto me va a evitar muchos quebraderos de cabeza. Espero que se extienda por la red ya que es increíblemente útil, sobretodo para oficinas con proyectos en red con cientos de subcarpetas.
Muchas gracias amigo!
Cita de: pitoloko en 2 Marzo 2011, 18:52 PM
jaja!!! por fin llega el dia que me toca corregir un script del gran Nov...
XD que va, es broma, está bien, lo que pasa es que parece que no tienes cscript? estas bajo windows ahora? xD que version?
para corrar el vbscript, o le pinchas 2 veces click, o como dice Nov sería mediante "cscript.exe", esté debería estar en c:\windows\system32\cscript.exe"@echo off
c:\windows\system32\cscript.exe elarchivobs.vbs
no entiendo mucho de vbs pero parece que el script solo se puede ejecutar como dijo nov, mediante el cscript... :S por algo lo habrá dicho, luego lo pruebo yo a ver que tal
Cita de: Novlucker en 2 Marzo 2011, 17:58 PM
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 anteriorSet 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 vbs
Luego 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 redireccionandoC:\>cscript /nologo elscript.vbs C: > log.txt
Saludos
C:\>cscript /nologo elscript.vbs C:
"cscript" no se reconoce como un comando interno o externo,
programa o archivo por lotes ejecutable.