[megaloman]

JimmOnLine,

Хм. Остаётся вопрос с реализацией. »

Хм. Не вопрос!

Код:

AllDir = "Z:\Box_In"                     ' ---------  Полное имя рабочего каталога (без слэжа \ на конце)
Range1 = "C3"

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

Row1 = 0

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

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

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