Add Compress-LogDir function.

Overall, I don't like exposing such a "general purpose" command from the module.  Maybe we have just one command called New-IssueReport that zips the folder and returns an object with the zipPath and version info?

Author: rkeithhill

module/PowerShellEditorServices/PowerShellEditorServices.psd1

@@ -66,7 +66,7 @@ Copyright = '(c) 2016 Microsoft. All rights reserved.'
 # NestedModules = @()
 
 # Functions to export from this module, for best performance, do not use wildcards and do not delete the entry, use an empty array if there are no functions to export.
-FunctionsToExport = @('Start-EditorServicesHost', 'Get-PowerShellEditorServicesVersion')
+    FunctionsToExport = @('Start-EditorServicesHost', 'Get-PowerShellEditorServicesVersion', 'Compress-LogDir')
 
 # Cmdlets to export from this module, for best performance, do not use wildcards and do not delete the entry, use an empty array if there are no cmdlets to export.
 CmdletsToExport = @()

module/PowerShellEditorServices/PowerShellEditorServices.psm1

@@ -96,6 +96,50 @@ function Start-EditorServicesHost {
     return $editorServicesHost
 }
 
+function Compress-LogDir {
+    [CmdletBinding(SupportsShouldProcess=$true)]
+    param (
+        [Parameter(Mandatory=$true, Position=0, HelpMessage="Literal path to a log directory.")]
+        [ValidateNotNullOrEmpty()]
+        [string]
+        $Path
+    )
+
+    begin {
+        function LegacyZipFolder($Path, $ZipPath) {
+            if (!(Test-Path($ZipPath))) {
+                Set-Content -LiteralPath $ZipPath -Value ("PK" + [char]5 + [char]6 + ("$([char]0)" * 18))
+                (Get-Item $ZipPath).IsReadOnly = $false
+            }
+
+            $shellApplication = New-Object -ComObject Shell.Application
+            $zipPackage = $shellApplication.NameSpace($ZipPath)
+
+            foreach ($file in (Get-ChildItem -LiteralPath $Path)) {
+                $zipPackage.CopyHere($file.FullName)
+                Start-Sleep -MilliSeconds 500
+            }
+        }
+    }
+
+    end {
+        $zipPath = ((Convert-Path $Path) -replace '(\\|/)$','') + ".zip"
+
+        if (Get-Command Microsoft.PowerShell.Archive\Compress-Archive) {
+            if ($PSCmdlet.ShouldProcess($zipPath, "Create ZIP")) {
+                Microsoft.PowerShell.Archive\Compress-Archive -LiteralPath $Path -DestinationPath $zipPath -Force -CompressionLevel Optimal
+                $zipPath
+            }
+        }
+        else {
+            if ($PSCmdlet.ShouldProcess($zipPath, "Create Legacy ZIP")) {
+                LegacyZipFolder $Path $zipPath
+                $zipPath
+            }
+        }
+    }
+}
+
 function Get-PowerShellEditorServicesVersion {
     $nl = [System.Environment]::NewLine