Wer mag testen? Firefox4backup

Add-Type -A System.Windows.Forms

#region Grundeinstellungen
$7z = "$env:ProgramFiles\7-zip\7zG.exe"
$Reg = "HKCU:\Software\FF_Backup"
$Fonts = @(
    [Drawing.Font]::New("Microsoft Sans Serif", 12)
    [Drawing.Font]::New("Microsoft Sans Serif", 12, [Drawing.FontStyle]::Bold)
)
[Windows.Forms.Application]::EnableVisualStyles()
#endregion

# Funktion zur Anzeige des Hinweisfensters
function Show-FirefoxRunningDialog {
    $Form = [Windows.Forms.Form]@{
        Text = "Hinweis"
        AutoSize = $false
        StartPosition = 'CenterScreen'
        Size = "565,155"
        Padding = '10,10,10,10'
        KeyPreview = $true
    }
    $Table = [Windows.Forms.TableLayoutPanel]@{
        Dock = 'Fill'
        AutoSize = $true
    }
    $Flow = [Windows.Forms.FlowLayoutPanel]@{
        Anchor = 'Top'
        AutoSize = $true
        AutoSizeMode = 'GrowAndShrink'
    }

    $Label = [Windows.Forms.Label]@{
        Font = $Fonts[0]
        Margin = '10,10,10,10'
        AutoSize = $true
        Text = "Firefox wird noch ausgeführt. Soll Firefox beendet werden?"
    }

    $OKButton = [Windows.Forms.Button]@{
        Size = "120,40"
        Text = "OK"
        Font = $Fonts[1]
        Margin = '10,10,10,10'
    }
    $OKButton.Add_Click({
        $Form.DialogResult = [System.Windows.Forms.DialogResult]::OK
        $Form.Close()
    })

    $CancelButton = [Windows.Forms.Button]@{
        Size = "120,40"
        Text = "Abbrechen"
        Font = $Fonts[1]
        Margin = '10,10,10,10'
    }
    $CancelButton.Add_Click({
        $Form.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
        $Form.Close()
    })

    $Flow.Controls.Add($OKButton)
    $Flow.Controls.Add($CancelButton)
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 190))
    $Table.Controls.Add($Label, 0, 0)
    $Table.Controls.Add($Flow, 0, 1)
    $Table.SetColumnSpan($Flow, 3)

    $Form.Controls.Add($Table)
    return $Form.ShowDialog()
}

# Überprüfen, ob Firefox noch läuft und entsprechend handeln
if (Get-Process "Firefox" -ErrorAction SilentlyContinue) {
    $result = Show-FirefoxRunningDialog
    if ($result -eq [System.Windows.Forms.DialogResult]::OK) {
        Get-Process "Firefox" | Stop-Process
    } else {
        exit
    }
}

#region Fensterelemente
$Form = [Windows.Forms.Form]@{
    Text = "Firefox4backup"
    AutoSize = $false
    StartPosition = 'CenterScreen'
    Size = "565,240"
    Padding = '10,10,10,10'
    KeyPreview = $true
}
$Table = [Windows.Forms.TableLayoutPanel]@{
    Dock = 'Fill'
    AutoSize = $true
}
$Flow = [Windows.Forms.FlowLayoutPanel]@{
    Anchor = 'Top'
    AutoSize = $true
    AutoSizeMode = 'GrowAndShrink'
}

$Open = [Windows.Forms.Button]@{
    Size = "100,40"
    Text = "Speicherort"
    Font = $Fonts[0]
    Anchor = 'Left'
}

$Textbox = @(
    [Windows.Forms.TextBox]@{
        Font = $Fonts[0]
        Margin = '10,10,0,10'
        Size = "80,50"
        Dock = 'Fill'
    },
    [Windows.Forms.TextBox]@{
        Font = $Fonts[1]
        Margin = '10,10,10,10'
        Dock = 'Fill'
        Text = " \BackupFirefox\$(Get-Date -Format 'yyyy.MM.dd')"
        Enabled = $false
    }
)
$Checkbox = @(
    [Windows.Forms.Checkbox]@{
        Text = "Programmverzeichnis sichern"
        AutoSize = $true
        Font = $Fonts[0]
        Margin = '10,10,0,10'
    },
    [Windows.Forms.Checkbox]@{
        Text = "vorhandenen Ordner überschreiben"
        AutoSize = $true
        Font = $Fonts[0]
        Margin = '10,0,10,10'
        Visible = $false
    }
)

$HS = @{
    Run = [Windows.Forms.Button]@{
        Size = "120,40"
        Text = "Ausführen"
        Font = $Fonts[1]
        Margin = '10,10,10,10'
        Enabled = $false
    }
    SavePath = $false
    overwrite = $true
}
#endregion

#region Fensteranordnung
$Flow.Controls.Add($HS.Run)
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 240))
$Table.Controls.Add($Open, 0, 0)
$Table.Controls.Add($Textbox[0], 1, 0)
$Table.Controls.Add($Textbox[1], 2, 0)
$Table.Controls.Add($Checkbox[0], 0, 3)
$Table.Controls.Add($Checkbox[1], 0, 4)
$Table.Controls.Add($Flow, 0, 5)
$Table.SetColumnSpan($Checkbox[0], 3)
$Table.SetColumnSpan($Checkbox[1], 3)
$Table.SetColumnSpan($Flow, 3)

$Form.Controls.Add($Table)
$Form.Size = "565,250"  # Hier die Größe des Formulars setzen
#endregion

#region Runspace
# Firefox-Status überwachen
$RS = [powershell]::Create().AddScript({
    while ($true) {
        if (Get-Process "Firefox" -ErrorAction SilentlyContinue) {
            $HS.FirefoxRunning = $true
        } else {
            $HS.FirefoxRunning = $false
            $HS.Run.Enabled = $HS.SavePath -and $HS.overwrite
        }
    }
})
$RS.Runspace.SessionStateProxy.SetVariable('HS', $HS)
#endregion

#region Events
$Form.Add_Load({
    $HS.handle = $RS.BeginInvoke()
    if (Test-Path $Reg) {
        $Textbox[0].Text = Get-ItemPropertyValue $Reg "(default)" -ErrorAction SilentlyContinue
    }
    [void]$this.ActivateControl($Checkbox[0])
})
$Form.Add_Closed({
    [void]$RS.Stop()
})
$Form.Add_KeyDown({
    switch ($_.KeyCode) {
        'Return' {$HS.Run.PerformClick()}
        'Escape' {$this.Hide()}
    }
})

$HS.Run.Add_Click({
    $this.TopLevelControl.Hide()
    $HS.Action = $true
    $HS.BackupCompleted = $true
    Set-ItemProperty -Path $Reg -Name "(default)" -Value $Textbox[0].Text.Replace('"', '') -Force
})

$Textbox.Add_TextChanged({
    if ($this.Text -and (Test-Path $this.Text.Replace('"', ''))) {
        $HS.SavePath = $true
        if (Test-Path (Join-Path $this.Text.Replace('"', '') "BackupFirefox\$(Get-Date -Format 'yyyy.MM.dd')")) {
            $Checkbox[1].Visible = $true
            $HS.overwrite = $false
        } else {
            $Checkbox[1].Visible = $false
            $HS.overwrite = $true
        }
    } else {
        $HS.SavePath = $false
    }
})

$Open.Add_Click({
    $Browse = [Windows.Forms.FolderBrowserDialog]@{
        RootFolder = "MyComputer"
        SelectedPath = if ($HS.SavePath) {$Textbox.Text.Replace('"', '')}
    }
    if ($Browse.ShowDialog() -eq 'ok') {$Textbox[0].Text = $Browse.SelectedPath}
})

$Checkbox[1].Add_CheckStateChanged({
    $HS.overwrite = $this.Checked
})
#endregion

#region Ausführung
[void]$Form.ShowDialog()
$RS.Dispose()
#endregion

if ($HS.Action) {
    $LogPfad = Join-Path $Textbox[0].Text.Replace('"', '') $Textbox[1].Text.SubString(1)
    if (Test-Path "$LogPfad\Profilverzeichnis.zip") {Remove-Item -Force "$LogPfad\Profilverzeichnis.zip"}

    &$7z a -mx5 -bso0 -bsp1 "$LogPfad\Profilverzeichnis.zip" "$env:appdata\Mozilla\Firefox\Profiles" | Out-String -Stream | Select-String -Pattern "\d+(?=%)" -AllMatches |
        ForEach-Object { Write-Progress -Activity "Profilverzeichnis wird archiviert... " -PercentComplete ([int]$_.Matches.Value) -Status " " }
    if ($Checkbox[0].Checked) {
        if (Test-Path "$LogPfad\Programmverzeichnis.zip") {Remove-Item -Force "$LogPfad\Programmverzeichnis.zip"}

        &$7z a -mx5 -bso0 -bsp1 "$LogPfad\Programmverzeichnis.zip" "$env:ProgramFiles\Mozilla Firefox" | Out-String -Stream | Select-String -Pattern "\d+(?=%)" -AllMatches |
            ForEach-Object { Write-Progress -Activity "Programmverzeichnis wird archiviert... " -PercentComplete ([int]$_.Matches.Value) -Status " " }
    }

    $date = Get-Date -Format "yyyy.MM.dd - HH.mm.ss"
    $datum = Get-Date -Format "dd.MM.yyyy"

    if (!(Test-Path ("$LogPfad\Sicherung am $date.txt"))) {
        $FF_Version = Get-ItemProperty -Path 'HKLM:\Software\Microsoft\Windows\CurrentVersion\Uninstall\*' | Where-Object { $_.DisplayName -like "*firefox*" } | Select-Object -ExpandProperty DisplayVersion
        $Logfile = (New-Item -Path "$LogPfad\Sicherung vom $datum.txt" -ItemType File -Force).FullName
        Add-Content $Logfile ("Diese Sicherung ist vom $(Get-Date -Format 'dddd, dd. MMMM yyyy, HH:mm:ss') Uhr`n")
        Add-Content $Logfile ("Die gesicherte Firefox-Version ist: $FF_Version")
        Add-Content $Logfile "`n`n"
    }

    # Nachricht anzeigen
    Add-Type -AssemblyName System.Windows.Forms

    #region Grundeinstellungen
    $Fonts = @(
        [Drawing.Font]::New("Microsoft Sans Serif", 12)
        [Drawing.Font]::New("Microsoft Sans Serif", 12, [Drawing.FontStyle]::Bold)
    )
    [Windows.Forms.Application]::EnableVisualStyles()
    #endregion

    #region Fensterelemente
    $Form = [Windows.Forms.Form]@{
        Text = "Backup abgeschlossen"
        AutoSize = $false
        StartPosition = 'CenterScreen'
        Size = "565,150"
        Padding = '10,10,10,10'
        KeyPreview = $true
    }
    $Table = [Windows.Forms.TableLayoutPanel]@{
        Dock = 'Fill'
        AutoSize = $true
    }
    $Flow = [Windows.Forms.FlowLayoutPanel]@{
        Anchor = 'Top'
        AutoSize = $true
        AutoSizeMode = 'GrowAndShrink'
    }

    $Label = [Windows.Forms.Label]@{
        Font = $Fonts[0]
        Margin = '10,10,10,10'
        AutoSize = $true
        Text = "Backup erfolgreich abgeschlossen."
    }

    $HS = @{
        Run = [Windows.Forms.Button]@{
            Size = "120,40"
            Text = "OK"
            Font = $Fonts[1]
            Margin = '10,10,10,10'
            Enabled = $true
        }
    }
    #endregion

    #region Fensteranordnung
    $Flow.Controls.Add($HS.Run)
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 190))
    $Table.Controls.Add($Label, 1, 0)
    $Table.Controls.Add($Flow, 0, 1)
    $Table.SetColumnSpan($Flow, 3)

    $Form.Controls.Add($Table)
    #endregion

    #region Button-Click-Event
    $HS.Run.Add_Click({
        $Form.Close()
    })
    #endregion

    #region Ausführung
    [void]$Form.ShowDialog()
    #endregion
}

Add-Type -A System.Windows.Forms

#region Grundeinstellungen

$Reg = "HKCU:\Software\FF_Backup"
$Fonts = @(
    [Drawing.Font]::New("Microsoft Sans Serif", 12)
    [Drawing.Font]::New("Microsoft Sans Serif", 12, [Drawing.FontStyle]::Bold)
)
[Windows.Forms.Application]::EnableVisualStyles()
#endregion

# Funktion zur Anzeige des Hinweisfensters
function Show-FirefoxRunningDialog {
    $Form = [Windows.Forms.Form]@{
        Text = "Hinweis"
        AutoSize = $false
        StartPosition = 'CenterScreen'
        Size = "565,155"
        Padding = '10,10,10,10'
        KeyPreview = $true
    }
    $Table = [Windows.Forms.TableLayoutPanel]@{
        Dock = 'Fill'
        AutoSize = $true
    }
    $Flow = [Windows.Forms.FlowLayoutPanel]@{
        Anchor = 'Top'
        AutoSize = $true
        AutoSizeMode = 'GrowAndShrink'
    }

    $Label = [Windows.Forms.Label]@{
        Font = $Fonts[0]
        Margin = '10,10,10,10'
        AutoSize = $true
        Text = "Firefox wird noch ausgeführt. Soll Firefox beendet werden?"
    }

    $OKButton = [Windows.Forms.Button]@{
        Size = "120,40"
        Text = "OK"
        Font = $Fonts[1]
        Margin = '10,10,10,10'
    }
    $OKButton.Add_Click({
        $Form.DialogResult = [System.Windows.Forms.DialogResult]::OK
        $Form.Close()
    })

    $CancelButton = [Windows.Forms.Button]@{
        Size = "120,40"
        Text = "Abbrechen"
        Font = $Fonts[1]
        Margin = '10,10,10,10'
    }
    $CancelButton.Add_Click({
        $Form.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
        $Form.Close()
    })

    $Flow.Controls.Add($OKButton)
    $Flow.Controls.Add($CancelButton)
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 190))
    $Table.Controls.Add($Label, 0, 0)
    $Table.Controls.Add($Flow, 0, 1)
    $Table.SetColumnSpan($Flow, 3)

    $Form.Controls.Add($Table)
    return $Form.ShowDialog()
}

# Überprüfen, ob Firefox noch läuft und entsprechend handeln
if (Get-Process "Firefox" -ErrorAction SilentlyContinue) {
    $result = Show-FirefoxRunningDialog
    if ($result -eq [System.Windows.Forms.DialogResult]::OK) {
        Get-Process "Firefox" | Stop-Process
    } else {
        exit
    }
}

#region Fensterelemente
$Form = [Windows.Forms.Form]@{
    Text = "Firefox4backup"
    AutoSize = $false
    StartPosition = 'CenterScreen'
    Size = "565,240"
    Padding = '10,10,10,10'
    KeyPreview = $true
}
$Table = [Windows.Forms.TableLayoutPanel]@{
    Dock = 'Fill'
    AutoSize = $true
}
$Flow = [Windows.Forms.FlowLayoutPanel]@{
    Anchor = 'Top'
    AutoSize = $true
    AutoSizeMode = 'GrowAndShrink'
}

$Open = [Windows.Forms.Button]@{
    Size = "100,40"
    Text = "Speicherort"
    Font = $Fonts[0]
    Anchor = 'Left'
}

$Textbox = @(
    [Windows.Forms.TextBox]@{
        Font = $Fonts[0]
        Margin = '10,10,0,10'
        Size = "80,50"
        Dock = 'Fill'
    },
    [Windows.Forms.TextBox]@{
        Font = $Fonts[1]
        Margin = '10,10,10,10'
        Dock = 'Fill'
        Text = " \BackupFirefox\$(Get-Date -Format 'yyyy.MM.dd')"
        Enabled = $false
    }
)
$Checkbox = @(
    [Windows.Forms.Checkbox]@{
        Text = "Programmverzeichnis sichern"
        AutoSize = $true
        Font = $Fonts[0]
        Margin = '10,10,0,10'
    },
    [Windows.Forms.Checkbox]@{
        Text = "vorhandenen Ordner überschreiben"
        AutoSize = $true
        Font = $Fonts[0]
        Margin = '10,0,10,10'
        Visible = $false
    }
)

$HS = @{
    Run = [Windows.Forms.Button]@{
        Size = "120,40"
        Text = "Ausführen"
        Font = $Fonts[1]
        Margin = '10,10,10,10'
        Enabled = $false
    }
    SavePath = $false
    overwrite = $true
}
#endregion

#region Fensteranordnung
$Flow.Controls.Add($HS.Run)
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 240))
$Table.Controls.Add($Open, 0, 0)
$Table.Controls.Add($Textbox[0], 1, 0)
$Table.Controls.Add($Textbox[1], 2, 0)
$Table.Controls.Add($Checkbox[0], 0, 3)
$Table.Controls.Add($Checkbox[1], 0, 4)
$Table.Controls.Add($Flow, 0, 5)
$Table.SetColumnSpan($Checkbox[0], 3)
$Table.SetColumnSpan($Checkbox[1], 3)
$Table.SetColumnSpan($Flow, 3)

$Form.Controls.Add($Table)
$Form.Size = "565,250"  # Hier die Größe des Formulars setzen
#endregion

#region Runspace
# Firefox-Status überwachen
$RS = [powershell]::Create().AddScript({
    while ($true) {
        if (Get-Process "Firefox" -ErrorAction SilentlyContinue) {
            $HS.FirefoxRunning = $true
        } else {
            $HS.FirefoxRunning = $false
            $HS.Run.Enabled = $HS.SavePath -and $HS.overwrite
        }
    }
})
$RS.Runspace.SessionStateProxy.SetVariable('HS', $HS)
#endregion

#region Events
$Form.Add_Load({
    $HS.handle = $RS.BeginInvoke()
    if (Test-Path $Reg) {
        $Textbox[0].Text = Get-ItemPropertyValue $Reg "(default)" -ErrorAction SilentlyContinue
    }
    [void]$this.ActivateControl($Checkbox[0])
})
$Form.Add_Closed({
    [void]$RS.Stop()
})
$Form.Add_KeyDown({
    switch ($_.KeyCode) {
        'Return' {$HS.Run.PerformClick()}
        'Escape' {$this.Hide()}
    }
})

$HS.Run.Add_Click({
    $this.TopLevelControl.Hide()
    $HS.Action = $true
    $HS.BackupCompleted = $true
    Set-ItemProperty -Path $Reg -Name "(default)" -Value $Textbox[0].Text.Replace('"', '') -Force
})

$Textbox.Add_TextChanged({
    if ($this.Text -and (Test-Path $this.Text.Replace('"', ''))) {
        $HS.SavePath = $true
        if (Test-Path (Join-Path $this.Text.Replace('"', '') "BackupFirefox\$(Get-Date -Format 'yyyy.MM.dd')")) {
            $Checkbox[1].Visible = $true
            $HS.overwrite = $false
        } else {
            $Checkbox[1].Visible = $false
            $HS.overwrite = $true
        }
    } else {
        $HS.SavePath = $false
    }
})

$Open.Add_Click({
    $Browse = [Windows.Forms.FolderBrowserDialog]@{
        RootFolder = "MyComputer"
        SelectedPath = if ($HS.SavePath) {$Textbox.Text.Replace('"', '')}
    }
    if ($Browse.ShowDialog() -eq 'ok') {$Textbox[0].Text = $Browse.SelectedPath}
})

$Checkbox[1].Add_CheckStateChanged({
    $HS.overwrite = $this.Checked
})
#endregion

#region Ausführung
[void]$Form.ShowDialog()
$RS.Dispose()
#endregion



if ($HS.Action) {
    # Entferne führende und nachfolgende Leerzeichen und den führenden Backslash
    $basePath = $Textbox[0].Text.Trim().Replace('"', '')
    $subPath = $Textbox[1].Text.Trim().TrimStart('\')
    $LogPfad = Join-Path -Path $basePath -ChildPath $subPath

    # Sicherstellen, dass das Zielverzeichnis existiert
    if (!(Test-Path -Path $LogPfad)) {
        New-Item -ItemType Directory -Path $LogPfad -Force | Out-Null
    }

    $profileZip = Join-Path -Path $LogPfad -ChildPath "profile.zip"
    
        Compress-Archive -Path "$env:appdata\Mozilla\Firefox\Profiles" -DestinationPath $profileZip -CompressionLevel NoCompression

    if ($Checkbox[0].Checked) {
        $programZip = Join-Path -Path $LogPfad -ChildPath "program.zip"
        if (Test-Path $programZip) { Remove-Item -Force $programZip }

            Compress-Archive -Path "$env:ProgramFiles\Mozilla Firefox" -DestinationPath $programZip -CompressionLevel NoCompression
    }
    
    $date = Get-Date -Format "yyyy.MM.dd - HH.mm.ss"
    $datum = Get-Date -Format "dd.MM.yyyy"

    if (!(Test-Path ("$LogPfad\Sicherung am $date.txt"))) {
        $FF_Version = Get-ItemProperty -Path 'HKLM:\Software\Microsoft\Windows\CurrentVersion\Uninstall\*' | Where-Object { $_.DisplayName -like "*firefox*" } | Select-Object -ExpandProperty DisplayVersion
        $Logfile = (New-Item -Path "$LogPfad\Sicherung vom $datum.txt" -ItemType File -Force).FullName
        Add-Content $Logfile ("Diese Sicherung ist vom $(Get-Date -Format 'dddd, dd. MMMM yyyy, HH:mm:ss') Uhr`n")
        Add-Content $Logfile ("Die gesicherte Firefox-Version ist: $FF_Version")
        Add-Content $Logfile "`n`n"
    }
    
    # Nachricht anzeigen
    Add-Type -AssemblyName System.Windows.Forms

    #region Grundeinstellungen
    $Fonts = @(
        [Drawing.Font]::New("Microsoft Sans Serif", 12)
        [Drawing.Font]::New("Microsoft Sans Serif", 12, [Drawing.FontStyle]::Bold)
    )
    [Windows.Forms.Application]::EnableVisualStyles()
    #endregion

    #region Fensterelemente
    $Form = [Windows.Forms.Form]@{
        Text = "Backup abgeschlossen"
        AutoSize = $false
        StartPosition = 'CenterScreen'
        Size = "565,150"
        Padding = '10,10,10,10'
        KeyPreview = $true
    }
    $Table = [Windows.Forms.TableLayoutPanel]@{
        Dock = 'Fill'
        AutoSize = $true
    }
    $Flow = [Windows.Forms.FlowLayoutPanel]@{
        Anchor = 'Top'
        AutoSize = $true
        AutoSizeMode = 'GrowAndShrink'
    }

    $Label = [Windows.Forms.Label]@{
        Font = $Fonts[0]
        Margin = '10,10,10,10'
        AutoSize = $true
        Text = "Backup erfolgreich abgeschlossen."
    }

    $HS = @{
        Run = [Windows.Forms.Button]@{
            Size = "120,40"
            Text = "OK"
            Font = $Fonts[1]
            Margin = '10,10,10,10'
            Enabled = $true
        }
    }
    #endregion

    #region Fensteranordnung
    $Flow.Controls.Add($HS.Run)
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 190))
    $Table.Controls.Add($Label, 1, 0)
    $Table.Controls.Add($Flow, 0, 1)
    $Table.SetColumnSpan($Flow, 3)

    $Form.Controls.Add($Table)
    #endregion

    #region Button-Click-Event
    $HS.Run.Add_Click({
        $Form.Close()
    })
    #endregion

    #region Ausführung
    [void]$Form.ShowDialog()
    #endregion
}

if ($HS.Action) {
    # Entferne führende und nachfolgende Leerzeichen und den führenden Backslash
    $basePath = $Textbox[0].Text.Trim().Replace('"', '')
    $subPath = $Textbox[1].Text.Trim().TrimStart('\')
    $LogPfad = Join-Path -Path $basePath -ChildPath $subPath

    # Sicherstellen, dass das Zielverzeichnis existiert
    if (!(Test-Path -Path $LogPfad)) {
        New-Item -ItemType Directory -Path $LogPfad -Force | Out-Null
    }

    $profileZip = Join-Path -Path $LogPfad -ChildPath "profile.zip"

    # Profilordner und auszuschließende Ordner
    $profileBasePath = "$env:appdata\Mozilla\Firefox\Profiles"
    $profiles = Get-ChildItem -Directory -Path $profileBasePath
    $excludeDirs = @("bookmarkbackups", "crashes", "minidumps", "saved-telemetry-pings","sessionstore-backups","shader-cache")

    # Kompression der Profile mit Ausschluss bestimmter Ordner
    $profilePaths = @()
    foreach ($profile in $profiles) {
        $profileDir = Join-Path -Path $profileBasePath -ChildPath $profile.Name
        $profileItems = Get-ChildItem -Path $profileDir -Recurse | Where-Object {
            $excludeDirs -notcontains $_.Parent.Name
        }
        $profilePaths += $profileItems
    }
    Compress-Archive -Path $profilePaths -DestinationPath $profileZip -CompressionLevel NoCompression

    if ($Checkbox[0].Checked) {
        $programZip = Join-Path -Path $LogPfad -ChildPath "program.zip"
        if (Test-Path $programZip) { Remove-Item -Force $programZip }

        Compress-Archive -Path "$env:ProgramFiles\Mozilla Firefox" -DestinationPath $programZip -CompressionLevel NoCompression
    }
}