[Busla]

Excel - более удобный инструмент для дальнейшей обработки сформированных данных. »

это если уметь им пользоваться, а у вас какое-то рисование по клеточкам

по уму надо заполнять так:

Код:

Folder1 | Folder2 |         |         |
Folder1 | Folder3 |         |         |
Folder1 | Folder4 | Folder4 |         |
Folder1 | Folder4 | Folder5 | Folder6 |

тогда и фильтры работают, и полный путь извлекается без танцев с бубном

[JimmOnLine]

и полный путь извлекается без танцев с бубном

Хм. Наверное в этом есть смысл. Остаётся вопрос с реализацией.

[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

[Busla]

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

обход дерева делается встроенными средствами, а дальше просто разбить строку по слэшу:

Код:

Get-ChildItem -Path c:\temp -Directory -Recurse `
| % { Write-Output ($_.FullName -split '\\') -NoEnumerate } `
| .{
    begin {
        $excel = New-Object -ComObject Excel.Application
        $excel.Visible = $true
        $workBook = $excel.Workbooks.Add()
        $folderList = $workBook.Worksheets.Item(1)
        $row=1
    }
    process {
        $_ | .{
            begin {
                $row++
                $column = 1
            }
            process {
                $FolderList.Cells.Item($row,$column++)="'$_"
            }
        }
    }
}

[YuS_2]

который бы записывал в Excel структуру каталогов. Пример: »

powershell

Код:

$root = 'd:\111'
$file = "$psscriptroot\out.xlsx"
$ids = ps excel -ea 0|%{$_.id}
$excel = new-object -com excel.application
$excelid = ps excel|%{$_.id}|?{$excelids -notcontains $_}
$excel.visible = $false
$workbook = $excel.workbooks.add()
$worksheet = $workbook.worksheets.item(1)
$row,$col=1,1
$worksheet.cells.item($row, $col) = $root
$content = dir -lit $root -dir -rec|sort fullname

foreach ($item in $content){
	$row++
	[array]$arr = $item.fullname -split "$([regex]::escape($root))|\\"|
	?{$_ -ne ''}
	$col = $arr.length + 1
	$worksheet.cells.item($row, $col) = $item.name
}
$usedrange = $worksheet.usedrange
$usedrange.entirecolumn.autofit()|out-null
$workbook.saveas($file)
$excel.quit()
kill -id $excelid -force -ea 0

хочу сперва построить это схематично (путем Excel), далее "Транслитерировать" наименования каталогов в Excel, ну а затем CopyPast'ить из документа в наименование Групп безопасности. »

сомневаюсь, что это удобнее... скорее powershell-ом это проще сделать, в том числе и транслитерацию...