Подсчёт количества подпапок

Материал из TCKB 2.0

Перейти к: навигация, поиск
Q: Такой вопрос: как посчитать сколько в каждой папке подпапок? Пример, есть 100 папок, мне нужно узнать сколько в этих ста папках подпапок. Если выделить эти сто папок и нажать свойства то он будет считать и подпапки и выделенные папки. Конечно можно и посчитать вручную, отняв сто, но ведь на это уходит драгоценное время!
A: Если без рекурсии (без подсчета вложенных папок во вложенных папках), то вот так:


'==================================================
' Подсчет количества вложенных папок (без рекурсии)

' В параметрах вызова из TC должно быть прописано:
' %L
'==================================================

Dim TempFile, FSO
Set TempFile =
CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1)
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Dim StrInFile, SF, M1
SF = 0
Do While Not TempFile.AtEndOfStream
StrInFile = TempFile.ReadLine
If FSO.FolderExists(StrInFile) Then
SF = SF + FSO.GetFolder(StrInFile).SubFolders.Count
End If
Loop
If SF > 0 Then
M1 = MsgBox("В выделенных каталогах находится" & chr(13) & SF & chr(13) & "вложенных папок", vbOKOnly + vbInformation, "Результат")
Else
M1 = MsgBox("В выделенных каталогах нет вложенных папок", vbOKOnly + vbExclamation, "Внимание!")
End If
Set TempFile = Nothing
Set FSO = Nothing
Wscript.Quit


Сохрани код в файле *.vbs, повесь файл на панель TC, в параметрах кнопки пропиши %L.

Выдели нужные папки и нажми кнопку - появится диалоговое окно с количеством вложенных папок.


Batya


A: Можно воспользоваться контентным плагином DirSizeCalc, он умеет считать количество подпапок.


Lev

Личные инструменты
Реклама
Календарь международных выставок Описание и характеристики продукции
s-compressor.ru
Статьи, обзоры, советы и рекомендации Адреса розничных магазинов
radio-mania.ru
Быстрая и выгодная регистрация патента, не выходя из дома
arhpatent.ru