Ни у кого нет скрипта обхода подпапок в папке?

Нужно найти файлы, полный путь к которым очень длинный. Для этого нужно обойти все подпапки, вычислить длину полных путей к каждому файлу. Ничего похожего нет на VBScript, например?

А просто DIR в файл и обработать полученный листинг - не?

А так - FSO в руки и рекурсивно вниз по дереву, типа

dim fso
set fso =
call recurse(foldername)

sub recurse
set fldr = fso.getfolder
for each onefile in fldr.files
debug.print onefile.name, len(onefile.path & onefile.name)
next
for each subfldr in fldr.folders
call recurse(foldername & subfldr.name)
next
end sub

Список всех файлов в текущей папке с подпапками

dir /s /b

seg856
Нужно найти файлы, полный путь к которым очень длинный. Для этого нужно обойти все подпапки, вычислить длину полных путей к каждому файлу. Ничего похожего нет на VBScript, например?

PowerShell скрипт выводит грид с возможностью фильтрации и сортировки из путей и имен

ls -r | select FullName,@{n="FullNameLength";e={ $_.FullName.Length }} | ogv

WebSharper
путей и длин

Dima T,

лучше еще ключик a добавить, чтоб скрытые файлы искало.

dir <маска поиска> /s /b /a

результатом будет список найденных файлов с полным путём, как и требуется автору

http://rapideuphoria.com/russian/lib_u_z_r.htm#walk_dir

Function ShowLongFilenames(FolderSpec, MinLength)
Dim FSO, CurrentFolder, Iterator, ItemsCollection, temp
Set FSO = CreateObject("Scripting.FileSystemObject")
Set CurrentFolder = FSO.GetFolder(FolderSpec)
Set ItemsCollection = CurrentFolder.Files
For Each Iterator in ItemsCollection
	If Len(Iterator.Path) >= MinLength Then
		temp = temp & Iterator.Path & " - " & Len(Iterator.Path) & vbNewLine
	End If
Next
set ItemsCollection = CurrentFolder.SubFolders
For Each Iterator in ItemsCollection
	temp = temp & ShowLongFilenames(Iterator.Path, MinLength)
Next   
ShowLongFilenames = temp
End Function

WScript.Echo ShowLongFilenames("c:\temp", 32)