ethercat-linux/scripts/tc-walk-tree.ps1

19 lines
673 B
PowerShell
Raw Normal View History

#Requires -RunAsAdministrator
$ErrorActionPreference = 'Continue'
$dte = New-Object -ComObject TcXaeShell.DTE.17.0
$dte.MainWindow.Visible = $true
try { $dte.SuppressUI = $false } catch {}
$dte.Solution.Open('C:\Users\tonycao\work\twincat3-auto-cli\TwinCAT_EL6695_Primary\TwinCATProject1.sln')
Start-Sleep 25
$proj = $dte.Solution.Projects.Item(1)
$n = $proj.ProjectItems.Count
Write-Host "top-level items: $n"
for ($i = 1; $i -le $n; $i++) {
$it = $proj.ProjectItems.Item($i)
Write-Host "[$i] $($it.Name)"
try {
$m = $it.ProjectItems.Count
for ($j = 1; $j -le $m; $j++) { Write-Host " - $($it.ProjectItems.Item($j).Name)" }
} catch {}
}