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

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

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

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