Полный и дифференцированный бэкапы определенных папок

Windowstyle -hidden #чтобы окошко не всплывало
$BackupDrivePath="D:"
$ArchiveTaskName="WorkSpaceUserFull"
$ArchiveDstPath = $BackupDrivePath+"Backup"
$SevenZipExecutablePath = "C:\Program files\7-Zip\7z.exe"
$ScriptLogFile = "D:\Backup\BackupFiles.log"
if ($LogVars=1) {
    echo "================================================================="
    echo "ScriptLogFile: $ScriptLogFile"
    echo "SevenZipExecutablePath: $SevenZipExecutablePath"
    echo "================================================================="
    }
echo "Backup started at: $(Get-Date)"
 
Start-Transcript -path $ScriptLogFile
if ((get-childitem $([System.Environment]::GetFolderPath(‘Desktop’)) -Exclude *.lnk)){
 
if (!(Test-Path "D:\Backup\Desktop"))
    {
    New-Item -Path "D:\Backup\Desktop" -ItemType "directory"
    }
if (!(Test-Path "D:\Backup\Documents"))
    {
    New-Item -Path "D:\Backup\Documents" -ItemType "directory"
    }
 
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing") 
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") 
 
$Result=[Windows.Forms.MessageBox]::Show("Копируем автоматически все файлы с рабочего стола и из папки Мои документы на личный диск D") #Всплывающее окно
Write-Host «Выполняем» # в консоль
 
get-childitem -Path $([System.Environment]::GetFolderPath(‘Desktop‘)) -Exclude *.lnk | Copy-Item -Destination D:\Backup\Desktop\ -force
 
get-childitem -Path $([System.Environment]::GetFolderPath(‘MyDocuments‘)) -Exclude *.lnk | Copy-Item -Destination D:\Backup\Documents\ -force
Write-Host «Готово» # в консоль
#$Result=[Windows.Forms.MessageBox]::Show("Копирование выполнено в папку Backup на диске D")
 
function zip ($source, $destination) {
    $7zip = "C:\Program Files\7-Zip\7z.exe"
    $args =  "-pltdp", "a", "-tzip", "$destination", "$source", "-r"
    & $7zip $args
}
Stop-Transcript
$s1 = "D:\Backup\*"
$s2 = $BackupDrivePath+ $ArchiveTaskName+"_$(Get-Date -format "yyyyMMdd")"
zip $s1 $s2
 
#del "D:\Backup\*" -Recurse
$Result=[Windows.Forms.MessageBox]::Show("Создана резервная копия на диске D")
} #Всплывающее окно

if (!(Test-Path ($$ = (gcm 7za).Definition))) {
  Write-Warning "7-zip не в переменной PATH не обнаружен."
  break
}
 
'Desktop', 'MyDocuments' | % {
  # вспомогательная анонимная функция
  $arc = {param([String]$Path, [String]$Archive)
    [void](cmd /c "7za a -mx9 -x!*.lnk $(
      Join-Path $Path `"$($Archive)_$(date -u %Y%m%d).zip`"
    ) `"$(
      [Environment]::GetFolderPath($_)
    )\*`"")
  }
}{
  # если папок для хранения резервных копий не существует
  if (!(Test-Path ($d = "D:\backup\$($$ = $_ -replace 'My', '')$$"))) {
    [void](ni $d -type directory)
  }
  
  if (($zip = @(gci $d | sort CreationTime)[-1]) -eq $null) {
    # если папки пусты, то сравнение дат невозможно
    # создать резервные копии и завершить выполнение сценария
    &$arc $d $$
    break
  }
  
  # если не прошло около месяца...
  if (((Get-Date) - $zip.CreationTime).Days -le 30) {
    # найти все файлы с датой модификации старше создания
    # последней резервной копии...
    gci ([Environment]::GetFolderPath($_)) -r -ex *.lnk |
    % {
      if (($_.LastWriteTime - $zip.CreationTime).Days -gt 0) {
        &7za a -mx9 $(
          Join-Path $d "$$_$(date -u %Y%m%d).zip"
        ) $_.FullName | Out-Null
      }
    }
  }
  else {
    # в противном случае - миновало около месяца - создать
    # создать новую резервную копию
    &$arc $d $$
  }
}

if (!(Test-Path ($$ = (gcm 7za).Definition))) {
  Write-Warning "7-zip не в переменной PATH не обнаружен."
  break
}

PS E:\sandbox> (gi (gcm 7za).Definition).VersionInfo.FileVersion
15.12

$env:path += ';C:\Program Files\7zip'