Fix uwp apps alias won't start from Run or File Explorer

fixapppaths.ps1

# https://github.com/microsoft/terminal/issues/7081#issuecomment-1065833836

$WinAppsPaths = @("C:\Program Files\WindowsApps")
$UserAppsPaths = @("$env:LOCALAPPDATA\Microsoft\WindowsApps")
$UserProfile = @("$env:USERPROFILE")

Get-ChildItem "HKCU:\Software\Microsoft\Windows\CurrentVersion\App Paths" | ForEach-Object {
    $v = $_.GetValue('')
    if (${v}?.StartsWith($WinAppsPaths)) {
        $_ | Set-ItemProperty -Name "(default)" -Value "$UserAppsPaths\$($_.PSChildName)"
        $_ | Set-ItemProperty -Name "Path" -Value $UserProfile
    } 
}