View previous topic :: View next topic |
Author |
Message |
visual
Joined: 14 Jun 2005 Posts: 42
|
(Separately) Posted: Tue Jul 19, 2005 10:46 Post subject: Про количество папок |
|
|
Такой вопрос, а как посчитать сколько в каждой папке подпапок, пример, есть 100 папок мне нужно узнать сколько в этих ста папках подпапок. Если выделить эти сто папок и нажать свойства то он будет считать и подпапки и выделенные папки. Конечно можно и посчитать вручную, отняв сто, но ведь на это уходит драгоценное время! |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Tue Jul 19, 2005 14:16 Post subject: |
|
|
visual
Если без рекурсии (без подсчета вложенных папок во вложенных папках), то вот так:
Code: | '==================================================
' Подсчет количества вложенных папок (без рекурсии)
' В параметрах вызова из 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.
Выдели нужные папки и нажми кнопку - появится диалоговое окно с количеством вложенных папок. |
|
Back to top |
|
|
visual
Joined: 14 Jun 2005 Posts: 42
|
(Separately) Posted: Tue Jul 19, 2005 16:51 Post subject: Вопрос про количество папок |
|
|
Все супер просто!!! Спасибо!!!! |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|