[deniskx]

Iska, спасибо все получилось. Иногда проскакивала ошибка "Слишком длинный путь или имя файла", такие файлы не переименовались, но это не страшно, их немного. Полноценный юникод, даже иероглифы и прочие зарубежные нац. символы в имена файлов перенеслись.

[Iska]

Иногда проскакивала ошибка "Слишком длинный путь или имя файла", такие файлы не переименовались, но это не страшно, их немного. »

Длинное содержимое тэга «title»? Я, к сожалению, об этом не подумал. Хотя должен был бы.

Попробуйте так:

Код:

Add-Type -AssemblyName System.Web

Set-Variable -Name MAX_PATH -Value 260 -Option Constant -ErrorAction SilentlyContinue

$sSourceFolder = "E:\Песочница\0423\01"

if(Test-Path -Path $sSourceFolder -PathType Container) {
    Get-ChildItem -Path $sSourceFolder -Include default.htm -Recurse |`
        ForEach-Object -Process {
            if(-not $_.PSIsContainer) {
                Write-Host "$($_.DirectoryName)" -ForegroundColor DarkGreen
                Write-Host "`t$($_.Name)" -ForegroundColor Green
                
                $sContent = Get-Content -Path $_.FullName -Encoding UTF8
                $oMatch   = [System.Text.RegularExpressions.Regex]::Match($sContent, "(?i)<(TITLE)[^<>]*>(?<title>[^<>]+)</\1>")
                
                if($oMatch.Success) {
                    $sNewName = ([System.Web.HttpUtility]::HtmlDecode($oMatch.Groups.Item("title").Value) -replace '[<>:"/\\|?*]+', "_") + $_.Extension
                    
                    if(((Join-Path -Path $_.DirectoryName -ChildPath $sNewName).Length) -ge $MAX_PATH) {
                        $sNewName = $sNewName.Substring((Join-Path -Path $_.DirectoryName -ChildPath $sNewName).Length - ($MAX_PATH - 1))
                    }
                    
                    Write-Host "`t`t$sNewName" -ForegroundColor Cyan
                    
                    Rename-Item -Path $_.FullName -NewName $sNewName
                } else {
                    Write-Host "`tCan't determine TITLE tag." -ForegroundColor Red
                }
            }
        }
} else {
    Write-Host "Can't find source folder [$sSourceFolder]." -ForegroundColor Red
}

Полноценный юникод, даже иероглифы и прочие зарубежные нац. символы в имена файлов перенеслись. »

Это Вам свезло, что всё содержимое в одной, заранее известной кодировке.