[Mono-bugs] [Bug 82005][Wis] Changed - Gui exe send arguments badly to console exe

[bugzilla-daemon at bugzilla.ximian.com]

Please do not reply to this email- if you want to comment on the bug, go to the
URL shown below and enter your comments there.

Changed by surfzoid2002 at yahoo.fr.

http://bugzilla.ximian.com/show_bug.cgi?id=82005

--- shadow/82005	2007-07-04 05:13:39.000000000 -0400
+++ shadow/82005.tmp.14762	2007-07-04 05:18:47.000000000 -0400
@@ -60,6 +60,44 @@
     End Sub
 
 ------- Additional Comments From surfzoid2002 at yahoo.fr  2007-07-04 05:13 -------
 Well another mistake from me, i read to fast and doesn't see mono
 before path + exe, by the way, if i do this i loose my windows
 compatibility ?
+
+------- Additional Comments From surfzoid2002 at yahoo.fr  2007-07-04 05:18 -------
+Very more complex for a simple task, but solved with :
+
+    Dim Args As String = String.Empty
+    Dim BaseDir As DirectoryInfo
+    Dim P As Integer = Environment.OSVersion.Platform
+    Dim SepOs As String = "\"
+    Dim AppDir As String = String.Empty
+
+
+    Private Sub BtnGo_Click(ByVal sender As System.Object, ByVal e As
+System.EventArgs) Handles BtnGo.Click
+        Try
+            File.Copy(AppDir & "CRLF2LF.exe", BaseDir.Parent.FullName
+& SepOs & "CRLF2LF.exe", True)
+            If P = 4 Or P = 128 Then
+                Process.Start("mono " & Chr(34) &
+BaseDir.Parent.FullName & SepOs & "CRLF2LF.exe" & Chr(34), Args)
+            Else
+                Process.Start(Chr(34) & BaseDir.Parent.FullName &
+SepOs & "CRLF2LF.exe" & Chr(34), Args)
+            End If
+        Catch ex As Exception
+            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK,
+MessageBoxIcon.Error)
+        End Try
+    End Sub
+
+    Private Sub Main_Shown(ByVal sender As Object, ByVal e As
+System.EventArgs) Handles Me.Shown
+        If P = 4 Or P = 128 Then
+            SepOs = "/"
+        Else
+            SepOs = "\"
+        End If
+        AppDir = My.Application.Info.DirectoryPath & SepOs
+    End Sub