[Fors1k]

создать файл с гиперссылками на файлы в папке »

Код:

param(
    $pathFolder = 'C:\files',
    $pathXls    = 'C:\docs\links.xlsx' 
)cls

$Excel = New-Object -ComObject Excel.Application
$WorkBook  = $Excel.Workbooks.Add()
$WorkSheet = $WorkBook.Worksheets.Item(1)
gci $pathFolder -rec -file|%{$i=1}{  
    [void]$WorkSheet.Cells.Hyperlinks.Add(
        $workbook.Worksheets.Item(1).Cells.Item($i++,1),$_.FullName
    )
}
$Range = $WorkSheet.UsedRange
[void]$Range.EntireColumn.AutoFit()
$workBook.saveAs($pathXls);$excel.Quit()
[Runtime.InteropServices.Marshal]::ReleaseComObject($excel)