Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Структура папок
Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2561
Благодарности: 1600

Профиль | Отправить PM | Цитировать


скрипт VBS, который записывает в Excel структуру каталогов.
Код: Выделить весь код
AllDir = "Z:\Box_In"			' Полное имя рабочего каталога (без слэжа \ на конце)
Range1 = "C3"				' C какой ячейки стром дерево
ColWidth = 3				' Ширина колонок

Set XL = CreateObject("Excel.Application")
XL.Visible = True
XL.Workbooks.Add

XL.Cells.ColumnWidth = ColWidth

Row1 = 0
Col1 = 0

XL.Range(Range1).FormulaR1C1 = "=""" + AllDir + """"

Set FSO = CreateObject("Scripting.FileSystemObject")
Call AllFolders(FSO, AllDir, Range1, Col1, Row1, XL)

' ---------------------------------------------------------------------------
Sub AllFolders(FSO, WDir, Range1, C1, R1, XL)
    Set F = FSO.GetFolder(WDir)
    Set SubF = F.SubFolders
    For Each Folder In SubF
        R1 = R1 + 1
        XL.Range(Range1).Offset(R1, C1 + 1) = "=""" + Folder.Name + """"
        Call AllFolders(FSO, WDir + "\" + Folder.Name, Range1, C1 + 1, R1, XL)
    Next
    C1 = C1 + 1
End Sub

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

Отправлено: 21:43, 15-07-2019 | #3

Название темы: Структура папок