Windows│ディレクトリ構成図の書き方｜treeコマンドで出力する

tree "project" /f /a

param([Parameter(Mandatory=$true)][string]$Source,
      [Parameter(Mandatory=$true)][string]$Output)
$ErrorActionPreference = 'Stop'
$item = Get-Item -LiteralPath $Source
if (-not $item.PSIsContainer) { throw 'Source must be a folder' }
$root = $item.FullName.TrimEnd('\')
$out = [IO.Path]::GetFullPath($Output)
if ($out -eq $root -or $out.StartsWith($root + '\', [StringComparison]::OrdinalIgnoreCase)) { throw 'Output must be outside Source' }
if (Test-Path -LiteralPath $out) { throw 'Output already exists' }
# tree.com writes in the Windows OEM code page, irrespective of chcp 65001.
Add-Type -TypeDefinition 'public class CgmOem { [System.Runtime.InteropServices.DllImport("kernel32.dll")] public static extern uint GetOEMCP(); }'
$savedEncoding = [Console]::OutputEncoding
try {
    [Console]::OutputEncoding = [Text.Encoding]::GetEncoding([int][CgmOem]::GetOEMCP())
    $lines = @(& "$env:SystemRoot\System32\tree.com" $root /f /a)
    if ($LASTEXITCODE -ne 0) { throw 'tree failed' }
} finally { [Console]::OutputEncoding = $savedEncoding }
$lines | Out-File -LiteralPath $out -Encoding UTF8 -NoClobber

@echo off
setlocal DisableDelayedExpansion
chcp 65001 >nul
pushd "%~dp0" || exit /b 1
if not exist "project\" exit /b 1
if exist "tree-list.txt" exit /b 1
if exist "file-list.txt" exit /b 1
powershell.exe -NoProfile -ExecutionPolicy RemoteSigned -File "%~dp0tree-export.ps1" -Source "%~dp0project" -Output "%~dp0tree-list.txt"
if errorlevel 1 exit /b 1
dir "project" /s /b /a-d /o:n > "file-list.txt"
if errorlevel 1 exit /b 1
popd

powershell.exe -NoProfile -ExecutionPolicy RemoteSigned -File ".\inventory.ps1" -Source ".\project" -Output ".\files.csv"