Создание txt файла с текстом, полученным из названия файла в папке

$count      = 5 # Количество файлов для переноса в каждую из подпапок
$RootFolder = 'C:\TEST'
$ListFiles  = "$env:TEST\tmp_FileList.txt"
 
(Get-ChildItem $RootFolder\*.jpg -File).FullName | Set-Content -Path $ListFiles -Encoding UTF8 
 
$n = 1
foreach ($BlockFiles in Get-Content -Path $ListFiles -ReadCount $count)
{
    $nn = ([string]$n).PadLeft(4,"0")
    $dest = "$RootFolder\$nn"
    New-Item -Path $dest -ItemType Directory -Force
    
    foreach ($file in $BlockFiles)
    {
        Move-Item $file $dest -Force
        $name = $file -replace '.+\\|\.jpg$'
        "Fam,{0}`nIm,{1}`nOtch,{2}`nRozhd,{3}" -f ($name -split '-') | Set-Content -Path "$dest\$name.jpg.txt" -Encoding UTF8 -Force
    }
 
    $n++
}
 
Remove-Item $ListFiles -Force
Start-Sleep -Seconds 15

$count      = 5000 # Количество файлов для переноса в каждую из подпапок
$RootFolder = 'C:\TEST'
$ListFiles  = "$env:TEMP\tmp_FileList.txt"
 
(Get-ChildItem $RootFolder\*.jpg -File | ? BaseName -Match '^(\w+-){3}(\d\d\.){2}\d\d').FullName | Set-Content -Path $ListFiles -Encoding UTF8
#(Get-ChildItem $RootFolder\*.jpg -File | ? BaseName -Match '^[\w-]+[\d.]+').FullName | Set-Content -Path $ListFiles -Encoding UTF8
 
$n = 1
foreach ($BlockFiles in Get-Content -Path $ListFiles -ReadCount $count)
{
    $nn = ([string]$n).PadLeft(4,"0")
    $dest = "$RootFolder\$nn"
    New-Item -Path $dest -ItemType Directory -Force
    
    foreach ($file in $BlockFiles)
    {
        Move-Item $file $dest -Force
        
        $name = $file -replace '.+\\|\.jpg$'
        $data = $name -split '-'
        $data[3] = $data[3] -replace '(\d\d)$','19$1'
        #$data[3] = Get-Date $data[3] -f 'dd.MM.yyyy'
        "Fam,{0}`nIm,{1}`nOtch,{2}`nRozhd,{3}" -f $data | Set-Content -Path "$dest\$name.jpg.txt" -Encoding UTF8 -Force
    }
 
    $n++
}
 
Remove-Item $ListFiles -Force

Set-ExecutionPolicy Unrestricted

$watch = [System.Diagnostics.Stopwatch]::StartNew()
$watch.Start() #Запуск таймера
$watch.Stop() #Остановка таймера
Write-Host $watch.Elapsed #Время выполнения

$start = date
sleep -s 5
(date) - $start | select Total*