скрипт 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
