Solucionar y evitar el error de "Ruta demasiado larga" en Windows

[SuperDraco]

1.vbs(2, 1) Error de Microsoft VBScript en tiempo de ejecución: El subíndice está fuera del intervalo

Que pasa aqui Nov? xD odio ese error ya me lo conozco...

[Novlucker]

Pensé que el script era autoexplicativo, por eso no puse mucho, lo he probado en otra máquina y funciona
De hecho el script si imprime por pantalla, pero si le ponen que redireccione a un archivo con > es imposible no? Miren mi primer ejemplo

pitoloko, tu problema es con el parametro que estas pasando al script, o bien no lo estas haciendo, o bien algo esta mal

Peeero, de cualquier modo el problema es que en el script solo he puesto para verificar las carpetas, pero no los archivos

Saludos

[SuperDraco]

Nada, a mi no me funciona! y me aseguro de meterlo donde hay rutas de carpetas de mas de 256 caracteres, y pruebo el script sin parametros, sin pasarlo a un txt ni nada, se queda como "cargando" 3 segundos pero no sale nada...

Hace poco me bajé una actualización de seguridad de Windows, que es una nueva version del cscript y el wscript... solo puedo pensar que sea por eso :/ da igual.

saludos.

[Novlucker]

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.

Código (vb) [Seleccionar] Expandir

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

[RyogiShiki]

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.

Código (vb) [Seleccionar] Expandir

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

Bien! jaja cierto, lo he probado y ha ido sin problemas

Saludos

[Di_Marcus]

Dios mío un millón de gracias.

Unas pequeñas cuestiones:

1. Que programas me tengo que instalar en Windows para modificar el script.

2. Cómo paso lo que he modificado a un .exe

Os explico el porque de estas cuestiones. La aplicación es perfecta pero también me interesaria cambiar el valor "255" y ponerlo un poco más bajo, con la finalidad de saber que carpetas están a punto de sobrepasar el límite.

Muchisimas gracias

[Randomize]

Ojo al revival de temas antiguos 

[the red]

me funciono solo cambiandole el nombre al archivo por uno mas  corto gracias ..