powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Ни у кого нет скрипта обхода подпапок в папке?
8 сообщений из 8, страница 1 из 1
Ни у кого нет скрипта обхода подпапок в папке?
    #39451090
seg856
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нужно найти файлы, полный путь к которым очень длинный. Для этого нужно обойти все подпапки, вычислить длину полных путей к каждому файлу. Ничего похожего нет на VBScript, например?
...
Рейтинг: 0 / 0
Ни у кого нет скрипта обхода подпапок в папке?
    #39451110
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А просто DIR в файл и обработать полученный листинг - не?

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

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
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
...
Рейтинг: 0 / 0
Ни у кого нет скрипта обхода подпапок в папке?
    #39451118
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Список всех файлов в текущей папке с подпапками
Код: sql
1.
dir /s /b
...
Рейтинг: 0 / 0
Ни у кого нет скрипта обхода подпапок в папке?
    #39451123
WebSharper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
seg856Нужно найти файлы, полный путь к которым очень длинный. Для этого нужно обойти все подпапки, вычислить длину полных путей к каждому файлу. Ничего похожего нет на VBScript, например?

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

Код: powershell
1.
ls -r | select FullName,@{n="FullNameLength";e={ $_.FullName.Length }} | ogv
...
Рейтинг: 0 / 0
Ни у кого нет скрипта обхода подпапок в папке?
    #39451128
WebSharper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
WebSharperпутей и длин
...
Рейтинг: 0 / 0
Ни у кого нет скрипта обхода подпапок в папке?
    #39451157
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dima T,

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

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

результатом будет список найденных файлов с полным путём, как и требуется автору
...
Рейтинг: 0 / 0
Ни у кого нет скрипта обхода подпапок в папке?
    #39451324
experience
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Ни у кого нет скрипта обхода подпапок в папке?
    #39451346
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
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)
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Ни у кого нет скрипта обхода подпапок в папке?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]