Как сосчитать количество строк в текстовом файле и записать в другой файл?

$FSO = New-Object -ComObject 'Scripting.FileSystemObject'
foreach ($f in (ls $pwd.path '*.txt' -rec)){
  $f = $f.FullName
  $oFile = $FSO.OpenTextFile($f)
  $oFile.Skip((gi $f).Length)
  $oFile.Line>"$($f -replace('...$',''))str"
  $oFile.Close()
}
echo "Скорость выполнения: $((get-date)-(gps -id $pid).StartTime)"
$host.ui.RawUI.ReadKey(6)

param (
    [Parameter(Mandatory)]
    [ValidateScript({Test-Path -LiteralPath $_ -PathType Container})]
    [string] $Directory,
 
    [ValidateNotNullOrEmpty()] [string[]] $Extensions = @(''),
 
    [switch] $Recurse
)
 
$ErrorActionPreference = 'Stop'
 
$CodeFileName = 'Program2.cs'
$CodePath = if ($PSScriptRoot -ne '') { $PSScriptRoot } else { $PWD }
 
try { $CodeFullName = Join-Path -Path $CodePath -ChildPath $CodeFileName }
catch { Write-Warning -Message $_ ; return }
 
try { $Path = Resolve-Path -LiteralPath $CodeFullName }
catch { Write-Warning -Message $_ ; return }
 
try { $Code = [string] (Get-Content -LiteralPath $Path -Raw) }
catch { Write-Warning -Message $_ ; return }
 
if (-not ('LinesCountInFiles' -as [type])) { 
    try { Add-Type -TypeDefinition $Code }
    catch { Write-Warning -Message $_ ; return }
}
 
try {
    [LinesCountInFiles]::FindFiles($Directory, $Extensions, $Recurse) |
        ForEach-Object -Process {
            [PSCustomObject] @{
                File  = [System.IO.FileInfo] $_
                Lines = [LinesCountInFiles]::LinesCount($_)
            }
        }
} catch {
    Write-Warning -Message $_
}