winget upgrade
winget upgrade --all

# Optional: auch Programme mit unbekannter Versionsnummer einbeziehen
winget upgrade --all --include-unknown

Add-Type -AssemblyName System.Windows.Forms

$dialog = New-Object System.Windows.Forms.FolderBrowserDialog
$dialog.Description = "Ordner auswählen, der durchsucht werden soll"

if ($dialog.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK) {
  $pfad = $dialog.SelectedPath

  Get-ChildItem -LiteralPath $pfad -File -Recurse -ErrorAction SilentlyContinue |
  Sort-Object Length -Descending |
  Select-Object -First 20 `
    @{N='Größe_GB';E={[math]::Round($_.Length/1GB,2)}},
    @{N='Dateiname';E={'    ' + $_.FullName}} |
  Format-Table -AutoSize -Wrap
}

Add-Type -AssemblyName System.Windows.Forms

$dialog = New-Object System.Windows.Forms.FolderBrowserDialog
$dialog.Description = "Ordner auswählen, der auf doppelte Dateien geprüft werden soll"

if ($dialog.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK) {

  $pfad = $dialog.SelectedPath
  $desktop = [Environment]::GetFolderPath('Desktop')
  $bericht = Join-Path $desktop ("Duplikate_{0}.html" -f (Get-Date -Format 'yyyy-MM-dd_HH-mm-ss'))

  Write-Host "Dateien werden geprüft. Das kann bei großen Ordnern einige Zeit dauern ..."

  $duplikate =
    Get-ChildItem -LiteralPath $pfad -File -Recurse -ErrorAction SilentlyContinue |
    Group-Object Length |
    Where-Object Count -gt 1 |
    ForEach-Object {
      $_.Group | Get-FileHash -Algorithm SHA256 -ErrorAction SilentlyContinue
    } |
    Group-Object Hash |
    Where-Object Count -gt 1

  $gruppen = @()
  $ueberzaehlig = 0
  [int64]$sparBytes = 0

  foreach ($gruppe in $duplikate) {
    $ersteDatei = Get-Item -LiteralPath $gruppe.Group[0].Path -ErrorAction SilentlyContinue
    if ($null -eq $ersteDatei) { continue }

    $anzahl = $gruppe.Group.Count
    $groesseBytes = [int64]$ersteDatei.Length
    $ueberzaehlig += ($anzahl - 1)
    $sparBytes += $groesseBytes * ($anzahl - 1)

    $gruppen += [PSCustomObject]@{
      Dateien = $gruppe.Group
      Anzahl = $anzahl
      GroesseBytes = $groesseBytes
      SparBytes = $groesseBytes * ($anzahl - 1)
    }
  }

  $gruppen = $gruppen | Sort-Object SparBytes -Descending

  $html = New-Object System.Collections.Generic.List[string]
  $html.Add('<!doctype html>')
  $html.Add('<html lang="de"><head><meta charset="utf-8">')
  $html.Add('<title>Duplikat-Bericht</title>')
  $html.Add('<style>body{font-family:Segoe UI,Arial,sans-serif;max-width:1200px;margin:30px auto;padding:0 20px;color:#222}h1{color:#6B140D}.summary{padding:14px 18px;background:#eee;border-radius:10px;margin-bottom:24px}.group{border:1px solid #ccc;border-radius:10px;padding:14px 18px;margin:14px 0}.group h2{font-size:17px;margin:0 0 10px;color:#6B140D}.file{padding:7px 0;border-top:1px solid #e5e5e5}.file:first-of-type{border-top:0}.path{overflow-wrap:anywhere}a{color:#6B140D}small{color:#666}</style>')
  $html.Add('</head><body>')
  $html.Add('<h1>Duplikat-Bericht</h1>')

  $ordnerHtml = [System.Net.WebUtility]::HtmlEncode($pfad)
  $sparText = if ($sparBytes -ge 1GB) { "{0:N2} GB" -f ($sparBytes / 1GB) } else { "{0:N1} MB" -f ($sparBytes / 1MB) }

  $html.Add("<div class='summary'><strong>Geprüfter Ordner:</strong> $ordnerHtml<br><strong>Duplikat-Gruppen:</strong> $($gruppen.Count)<br><strong>Überzählige Dateien:</strong> $ueberzaehlig<br><strong>Potenziell einsparbar:</strong> $sparText<br><small>Es wurde nichts gelöscht oder verändert.</small></div>")

  $nr = 1

  foreach ($gruppe in $gruppen) {
    $groesseText = if ($gruppe.GroesseBytes -ge 1GB) { "{0:N2} GB" -f ($gruppe.GroesseBytes / 1GB) } else { "{0:N1} MB" -f ($gruppe.GroesseBytes / 1MB) }
    $gruppenSparText = if ($gruppe.SparBytes -ge 1GB) { "{0:N2} GB" -f ($gruppe.SparBytes / 1GB) } else { "{0:N1} MB" -f ($gruppe.SparBytes / 1MB) }

    $html.Add("<div class='group'><h2>Gruppe $nr · $($gruppe.Anzahl) identische Dateien · je $groesseText · einsparbar $gruppenSparText</h2>")

    foreach ($datei in $gruppe.Dateien) {
      $dateiPfad = $datei.Path
      $dateiHtml = [System.Net.WebUtility]::HtmlEncode($dateiPfad)
      $dateiUri = (New-Object System.Uri($dateiPfad)).AbsoluteUri
      $ordnerUri = (New-Object System.Uri((Split-Path -Parent $dateiPfad) + '\\')).AbsoluteUri

      $html.Add("<div class='file'><div class='path'>$dateiHtml</div><a href='$dateiUri' target='_blank'>Datei öffnen</a> · <a href='$ordnerUri' target='_blank'>Ordner anzeigen</a></div>")
    }

    $html.Add('</div>')
    $nr++
  }

  if ($gruppen.Count -eq 0) {
    $html.Add('<p>Keine identischen Dateien gefunden.</p>')
  }

  $html.Add('</body></html>')
  $html | Set-Content -LiteralPath $bericht -Encoding UTF8

  Write-Host ""
  Write-Host "Fertig. Bericht gespeichert unter:"
  Write-Host $bericht
  Start-Process $bericht
}