PowerShell Compress-Archive: Исправление усеченных имен папок

# Пример того, как длина пути может быстро накапливаться
$rootPath = "D:\Logs\Prod\API1.domain.com\Server1.domain.com\"
$additionalPath = "Logs\2024\01\"
$fullPath = Join-Path -Path $rootPath -ChildPath $additionalPath
$fullPath.Length  # Это может легко превысить 255 символов

D:\Logs\Prod\API1.domain.com\Server1.domain.com\
# Путь: "API1.domain.com/Server1.domain.com/" = ~40 символов
# Добавьте еще несколько уровней, и вы приближаетесь к пределу

$BaseLogFilePath = "D:\Logs\Prod";
$LogArchivePath = $BaseLogFilePath+"\ArchiveLogs";
$TempPath = $BaseLogFilePath+"\Temp";

$list_MainFolders = Get-ChildItem -Path $BaseLogFilePath -Directory

foreach($mainFld in $list_MainFolders){
    # Создайте плоскую структуру во временной папке, чтобы избежать вложенных путей
    $shortName = $mainFld.Name  # Используйте только имя папки, а не полный путь
    $tempArchivePath = Join-Path -Path $TempPath -ChildPath $shortName
    
    # Копируйте файлы во временную папку со сокращенными путями
    Copy-Item -Path "$($mainFld.FullName)\*" -Destination $tempArchivePath -Recurse -Force
    
    # Создайте архив из сокращенной структуры
    $archiveName = "$shortName_$($mnthName).zip"
    $archivePath = Join-Path -Path $LogArchivePath -ChildPath $archiveName
    
    Compress-Archive -Path $tempArchivePath -DestinationPath $archivePath
    
    # Очистите временные файлы
    Remove-Item -Path $tempArchivePath -Recurse -Force
}

# Использование 7-Zip (7z.exe)
$7zPath = "C:\Program Files\7-Zip\7z.exe"
$archiveName = "$($mainFld.Name)_$($mnthName).zip"
$archivePath = Join-Path -Path $LogArchivePath -ChildPath $archiveName

& $7zPath a -tzip $archivePath "$($mainFld.FullName)\*"

# Установите Pscx, если он еще не установлен
Install-Module -Name Pscx -Scope CurrentUser -Force

Import-Module Pscx

# Используйте Archive-Cmdlet из Pscx, который лучше обрабатывает длинные пути
Archive-Cmdlet -Path "$($mainFld.FullName)\*" -Destination $archivePath -Format Zip

function Shorten-PathForArchive {
    param(
        [string]$Path,
        [int]$MaxLength = 240  # Оставьте некоторый буфер для накладных расходов zip
    )
    
    if ($Path.Length -le $MaxLength) {
        return $Path
    }
    
    # Разделите путь и сократите компоненты с конца
    $pathParts = $Path.Split([IO.Path]::DirectorySeparatorChar)
    $shortened = @()
    
    foreach ($part in $pathParts) {
        if ($Path.Length -le $MaxLength) {
            $shortened += $part
            break
        }
        
        # Сократите текущий компонент
        $shortPart = if ($part.Length -gt 8) { $part.Substring(0, 8) } else { $part }
        $shortened += $shortPart
        $Path = $Path.Substring(0, $Path.Length - $part.Length) + $shortPart
    }
    
    return [string]::Join([IO.Path]::DirectorySeparatorChar, $shortened)
}

# Разделите по диапазонам дат или подпапкам
$startDate = Get-Date -Year 2024 -Month 1 -Day 1
$endDate = Get-Date -Year 2024 -Month 1 -Day 7

$logFiles = Get-ChildItem -Path $mainFld.FullName -Recurse -File |
            Where-Object { $_.LastWriteTime -ge $startDate -and $_.LastWriteTime -lt $endDate }

# Создайте отдельный архив для каждого диапазона дат
foreach ($date in $startDate..$endDate) {
    $dayFiles = $logFiles | Where-Object { $_.LastWriteTime.Date -eq $date }
    if ($dayFiles) {
        $dayArchive = "$($mainFld.Name)_$($date.ToString('yyyyMMdd')).zip"
        Compress-Archive -Path $dayFiles.FullName -DestinationPath (Join-Path $LogArchivePath $dayArchive)
    }
}

# Сначала измените на базовый каталог
Push-Location -Path $BaseLogFilePath

foreach($mainFld in $list_MainFolders){
    $relativePath = $mainFld.Name  # Только имя папки, а не полный путь
    $archiveName = "$relativePath_$($mnthName).zip"
    $archivePath = Join-Path -Path $LogArchivePath -ChildPath $archiveName
    
    # Используйте относительный путь в сжатии
    Compress-Archive -Path $relativePath -DestinationPath $archivePath
}

Pop-Location

# PowerShell 7.x имеет лучшую поддержку длинных путей
if ($PSVersionTable.PSVersion.Major -ge 7) {
    # Включите длинные пути при необходимости
    [Environment]::SetEnvironmentVariable("LONG_PATHS_ENABLED", "1", "Process")
    Compress-Archive -Path $Path -DestinationPath $ArchivePath
}

function Test-PathLength {
    param([string]$Path)
    
    $maxLength = 240  # Консервативный предел для zip-архивов
    return ($Path.Length -le $maxLength)
}

# Используйте в вашем скрипте
if (-not (Test-PathLength -Path $currentLogDir_TempPathString)) {
    Write-Warning "Путь превышает рекомендованную длину: $currentLogDir_TempPathString"
}

# Вместо: API1.domain.com_202401_00.zip
# Используйте: api1-2024-01.zip
$shortName = $mainFld.Name.Replace('.', '-').ToLower()
$archiveName = "${shortName}_${mnthName}.zip"

# Удалите старые архивы для предотвращения накопления путей
$cutoffDate = (Get-Date).AddMonths(-6)
$oldArchives = Get-ChildItem -Path $LogArchivePath -Filter "*.zip" |
               Where-Object { $_.CreationTime -lt $cutoffDate }

foreach ($archive in $oldArchives) {
    Remove-Item -Path $archive.FullName -Force
}

function Test-ArchiveContents {
    param([string]$ArchivePath)
    
    try {
        $shell = New-Object -ComObject Shell.Application
        $zip = $shell.NameSpace((Resolve-Path $ArchivePath).Path)
        
        foreach ($item in $zip.Items()) {
            if ($item.Path.Length -gt 240) {
                Write-Warning "Обнаружен длинный путь в архиве: $($item.Path)"
            }
        }
        return $true
    }
    catch {
        Write-Error "Не удалось проверить архив: $_"
        return $false
    }
}

# Использование
Test-ArchiveContents -ArchivePath $currentLogDir_ArchiveFileName