Merge pull request #89 from wcogan/utf8-path-support

Added support for handling file paths as UTF8

Author: Iridium-IO

WindowsApp1/Compact.vb

@@ -272,7 +272,7 @@ Public Class Compact
 
                 Dim DIwDString = New DirectoryInfo(wDString)
                 directorysizeexceptionCount = 0
-                workingDir = Chr(34) + wDString.ToString() + Chr(34)
+                workingDir = wDString.ToString()
                 chosenDirDisplay.Text = DIwDString.Parent.ToString + " ❯ " + DIwDString.Name.ToString
                 uncompressedfoldersize = Math.Round(DirectorySize(DIwDString, True), 0)
                 preSize.Text = "Uncompressed Size: " + GetOutputSize _
@@ -346,6 +346,9 @@ Public Class Compact
             With MyProcess.StartInfo
                 .FileName = "CMD.exe"
                 .Arguments = ""
+                .StandardOutputEncoding = Encoding.UTF8                             'Allow console output to use UTF-8. Otherwise it will translate to ASCII equivalents.
+                .StandardErrorEncoding = Encoding.UTF8
+                .WorkingDirectory = workingDir                                      'Set working directory via argument, allows UTF-8 to be passed directly.
                 .UseShellExecute = False
                 .CreateNoWindow = True
                 .RedirectStandardInput = True
@@ -359,16 +362,8 @@ Public Class Compact
             MyProcess.BeginErrorReadLine()
             MyProcess.BeginOutputReadLine()
 
-
             Try
-
-                MyProcess.StandardInput.WriteLine("cd /d " + workingDir)
-                MyProcess.StandardInput.Flush()
-
-                MyProcess.StandardInput.WriteLine("")                                           'Required for the embedded console to show the next line in the buffer after the 'cd' command. No idea why
-                MyProcess.StandardInput.Flush()
-
-                MyProcess.StandardInput.WriteLine("chcp 437")
+                MyProcess.StandardInput.WriteLine("chcp 65001")                    'UTF-8 codepage in console output. Otherwise it will translate to ASCII equivalents.
                 MyProcess.StandardInput.Flush()
 
                 RunCompact(passthrougharg)