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 [EMAIL PROTECTED] 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 [EMAIL PROTECTED] 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 [EMAIL PROTECTED] 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 _______________________________________________ mono-bugs maillist - [email protected] http://lists.ximian.com/mailman/listinfo/mono-bugs
