Batya
|
 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.
Выдели нужные папки и нажми кнопку - появится диалоговое окно с количеством вложенных папок. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
