getting error at process.start()

[neeru]

Server Error in '/app_suite' Application.
 
The system cannot find the file specified
 
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. 
 
Exception Details: System.ComponentModel.Win32Exception: The system cannot find the file specified
 
Source Error: 
 
 
Line 201:            process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
Line 202:            process.StartInfo.RedirectStandardOutput = True
 
Line 203:            process.Start()
 
Line 204:            process.WaitForExit()
Line 205:            Dim sr As StreamReader = process.StandardError
 
Source File: D:\inetpub\wwwroot\app_suite\new_program.aspx.vb    Line: 203 
 
Stack Trace: 
 
 
[Win32Exception (0x80004005): The system cannot find the file specified]
   System.Diagnostics.Process.StartWithCreateProcess(ProcessStartInfo startInfo) +1806
   System.Diagnostics.Process.Start() +69
   new_program.btncompile_Click(Object sender, EventArgs e) in D:\inetpub\wwwroot\app_suite\new_program.aspx.vb:203
   System.Web.UI.WebControls.Button.OnClick(EventArgs e) +111
   System.Web.UI.WebControls.Button.RaisePostBackEvent(String eventArgument) +110
   System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +10
   System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +13
   System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +36
   System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +1565
 
Version Information: Microsoft .NET Framework Version:2.0.50727.4984; ASP.NET Version:2.0.50727.4971

[Rabbit]

We would need to see the code that throws the error.

[neeru]

Imports System.Data.SqlClient
Imports System.IO
Imports System.IO.File
Imports System.Diagnostics
Partial Class new_program
    Inherits System.Web.UI.Page
    Dim conn As SqlConnection
    Dim comm As SqlCommand
    Public ds As Data.DataSet
    Public da As SqlDataAdapter
    Public cs As String = System.Configuration.ConfigurationSettings.AppSettings.Item("connection_string")
    Public user_id As Integer
    Public program_id As Integer
    Public language_id As Integer
    Public program_text As String
    Public program_title As String
    Public flag As Integer = 0
 
    Protected Sub btnsubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsubmit.Click
        If txttitle.Text.Contains(" ") Then
            lblshow.Text = "*Please remove space from Program Title"
        Else
            If Request.QueryString("action") = "edit" Then
                program_id = Request.QueryString("program_id")
                conn = New SqlConnection(cs)
                conn.Open()
                da = New SqlDataAdapter
                da.SelectCommand = New SqlCommand
                da.SelectCommand.Connection = conn
                da.SelectCommand.CommandText = "program_update"
                da.SelectCommand.CommandType = Data.CommandType.StoredProcedure
                da.SelectCommand.Parameters.AddWithValue("@program_id", program_id)
                da.SelectCommand.Parameters.AddWithValue("@program_title", Trim(txttitle.Text))
                da.SelectCommand.Parameters.AddWithValue("@program_text", txtcode.Text)
                da.SelectCommand.Parameters.AddWithValue("@language_id", DropDownList1.SelectedValue)
                da.SelectCommand.ExecuteNonQuery()
                Response.Redirect("manage_programs.aspx?msg=update")
            Else
 
                user_id = CType(Session("aid"), Integer)
                conn = New SqlConnection(cs)
                conn.Open()
                da = New SqlDataAdapter
                da.SelectCommand = New SqlCommand
                da.SelectCommand.Connection = conn
                da.SelectCommand.CommandText = "program_insert"
                da.SelectCommand.CommandType = Data.CommandType.StoredProcedure
                da.SelectCommand.Parameters.AddWithValue("@user_id", user_id)
                da.SelectCommand.Parameters.AddWithValue("@program_title", Trim(txttitle.Text))
                da.SelectCommand.Parameters.AddWithValue("@program_text", txtcode.Text)
                da.SelectCommand.Parameters.AddWithValue("@language_id", DropDownList1.SelectedValue)
                da.SelectCommand.ExecuteNonQuery()
                'ds = New Data.DataSet
                'da.Fill(ds, "faculty_insert")
                Response.Redirect("manage_programs.aspx?msg=save")
 
            End If
        End If
 
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        lblargs.Text = ""
        If CheckBox1.Checked Then
            txtargs.Enabled = True
        Else
            txtargs.Enabled = False
        End If
        lblshow.Text = ""
        If DropDownList1.SelectedValue = 3 Then
            lblshow.Text = "*Class Name of Program and Program Title Should be Same"
        End If
        If Request.QueryString("action") = "edit" And Me.IsPostBack = False Then
            program_id = Request.QueryString("program_id")
            conn = New SqlConnection(cs)
            conn.Open()
            da = New SqlDataAdapter
            da.SelectCommand = New SqlCommand
            da.SelectCommand.Connection = conn
            da.SelectCommand.CommandText = "program_select"
            da.SelectCommand.CommandType = Data.CommandType.StoredProcedure
            da.SelectCommand.Parameters.AddWithValue("@program_id", program_id)
            ds = New Data.DataSet
            da.Fill(ds, "program_select")
            program_title = ds.Tables("program_select").Rows(0).Item("program_title")
            program_text = ds.Tables("program_select").Rows(0).Item("program_text")
            language_id = ds.Tables("program_select").Rows(0).Item("language_id")
            DropDownList1.SelectedValue = language_id
            txttitle.Text = program_title
            txtcode.Text = program_text
        End If
    End Sub
    Function InstanceCount(ByVal StringToSearch As String, ByVal StringToFind As String) As Integer
        If Len(StringToFind) Then
            InstanceCount = UBound(Split(StringToSearch, StringToFind))
        End If
    End Function
    Protected Sub btncompile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btncompile.Click
        If DropDownList1.SelectedValue = 1 Then
            Dim fs As FileStream = Nothing
            If (Not File.Exists(Server.MapPath("Csharp/" + txttitle.Text + ".cs"))) Then
                fs = File.Create(Server.MapPath("Csharp/" + txttitle.Text + ".cs"))
                Using fs
                End Using
            End If
            If File.Exists(Server.MapPath("Csharp/" + txttitle.Text + ".cs")) Then
                Using sw As StreamWriter = New StreamWriter(Server.MapPath("Csharp/" + txttitle.Text + ".cs"))
                    sw.Write(txtcode.Text)
                End Using
            End If
            Dim process As New Process
            process.StartInfo.WorkingDirectory = Server.MapPath("Csharp\")
            process.StartInfo.FileName = "csc"
            Dim p As String = txttitle.Text + ".cs"
            process.StartInfo.Arguments = p
            process.StartInfo.UseShellExecute = False
            process.StartInfo.RedirectStandardError = True
            process.StartInfo.RedirectStandardOutput = True
            process.StartInfo.CreateNoWindow = True
            process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            process.StartInfo.RedirectStandardOutput = True
            process.Start()
            process.WaitForExit()
            Dim sr As StreamReader = process.StandardOutput
            Dim response As String = sr.ReadToEnd
            process.Close()
            response = response.Remove(0, 165)
            If response.Trim = "" Then
                lblerror.ForeColor = Drawing.Color.Green
                lblerror.Text = "No Error Found"
                lbldesc.Text = "Success"
            Else
                Dim errcnt As Integer = InstanceCount(response, txttitle.Text)
                lblerror.ForeColor = Drawing.Color.Red
                lblerror.Text = errcnt.ToString + " errors found:"
                response = response.Replace(txttitle.Text, "<br/>" + txttitle.Text)
                lbldesc.Text = response
            End If
        ElseIf DropDownList1.SelectedValue = 2 Then
            Dim fs As FileStream = Nothing
            If (Not File.Exists(Server.MapPath("VB/" + txttitle.Text + ".vb"))) Then
                fs = File.Create(Server.MapPath("VB/" + txttitle.Text + ".vb"))
                Using fs
                End Using
            End If
            If File.Exists(Server.MapPath("VB/" + txttitle.Text + ".vb")) Then
                Using sw As StreamWriter = New StreamWriter(Server.MapPath("VB/" + txttitle.Text + ".vb"))
                    sw.Write(txtcode.Text)
                End Using
            End If
            Dim process As New Process
            process.StartInfo.WorkingDirectory = Server.MapPath("VB\")
            process.StartInfo.FileName = "vbc"
            Dim p As String = Server.MapPath("VB\" + txttitle.Text + ".vb")
            process.StartInfo.Arguments = p
            process.StartInfo.UseShellExecute = False
            process.StartInfo.RedirectStandardError = True
            process.StartInfo.RedirectStandardOutput = True
            process.StartInfo.CreateNoWindow = True
            process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            process.StartInfo.RedirectStandardOutput = True
            process.Start()
            process.WaitForExit()
            Dim sr As StreamReader = process.StandardOutput
            Dim response As String = sr.ReadToEnd
            process.Close()
 
            If response = "" Then
                lblerror.ForeColor = Drawing.Color.Green
                lblerror.Text = "No Error Found"
                lbldesc.Text = "Success"
            Else
                Dim len As Integer = response.Length
                Dim errcnt As String = response.Remove(0, len - 10)
                lblerror.ForeColor = Drawing.Color.Red
                lblerror.Text = errcnt + "found:"
                Dim a As String = response.Replace("D:\Project_2011-2012\App_suite_for_Cloud\app_suite\VB\", "* ")
                a = a.Remove(a.Length - 10, 9)
                lbldesc.Text = a.Replace("^", "<br/>")
            End If
        ElseIf DropDownList1.SelectedValue = 3 Then
            Dim fs As FileStream = Nothing
            If (Not File.Exists(Server.MapPath("Java/" + txttitle.Text + ".java"))) Then
                fs = File.Create(Server.MapPath("Java/" + txttitle.Text + ".java"))
                Using fs
                End Using
            End If
            If File.Exists(Server.MapPath("Java/" + txttitle.Text + ".java")) Then
                Using sw As StreamWriter = New StreamWriter(Server.MapPath("Java/" + txttitle.Text + ".java"))
                    sw.Write(txtcode.Text)
                End Using
            End If
            Dim process As New Process
            process.StartInfo.WorkingDirectory = Server.MapPath("Java\")
            process.StartInfo.FileName = "javac"
            Dim p As String = txttitle.Text + ".java"
            process.StartInfo.Arguments = p
            process.StartInfo.UseShellExecute = False
            process.StartInfo.RedirectStandardError = True
            process.StartInfo.CreateNoWindow = True
            process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            process.StartInfo.RedirectStandardOutput = True
            process.Start()
            process.WaitForExit()
            Dim sr As StreamReader = process.StandardError
            Dim response As String = sr.ReadToEnd
            process.Close()
            If response = "" Then
                lblerror.ForeColor = Drawing.Color.Green
                lblerror.Text = "No Error Found"
                lbldesc.Text = "Success"
            Else
                Dim len As Integer = response.Length
                Dim errcnt As String = response.Remove(0, len - 10)
                lblerror.ForeColor = Drawing.Color.Red
                lblerror.Text = errcnt + "found:"
 
 
 
Dim a As String = response.Replace("D:\inetpub\wwwroot\app_suite\Java\", "* ")
s
 
 
                a = a.Remove(a.Length - 10, 9)
                lbldesc.Text = a.Replace("^", "<br/>")
            End If
 
        ElseIf DropDownList1.SelectedValue = 4 Then
            Dim fs As FileStream = Nothing
            If (Not File.Exists(Server.MapPath("HTML/" + txttitle.Text + ".html"))) Then
                fs = File.Create(Server.MapPath("HTML/" + txttitle.Text + ".html"))
                Using fs
                End Using
            End If
            If File.Exists(Server.MapPath("HTML/" + txttitle.Text + ".html")) Then
                Using sw As StreamWriter = New StreamWriter(Server.MapPath("HTML/" + txttitle.Text + ".html"))
                    sw.Write(txtcode.Text)
                End Using
            End If
 
        End If
 
    End Sub
 
 
    Protected Sub btnrun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnrun.Click
 
        If CheckBox1.Checked Then
            If Trim(txtargs.Text) = "" Then
                lblargs.Text = "Please provide argumnets."
            Else
                flag = 1
                If DropDownList1.SelectedValue = 1 Then
                    flag = 1
                    Dim p As String
                    Dim process As New Process
                    process.StartInfo.WorkingDirectory = Server.MapPath("Csharp\")
                    process.StartInfo.FileName = Server.MapPath("Csharp\") + txttitle.Text + ".exe"
                    p = txtargs.Text
                    process.StartInfo.Arguments = p
                    process.StartInfo.UseShellExecute = False
                    process.StartInfo.RedirectStandardError = True
                    process.StartInfo.CreateNoWindow = True
                    process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                    process.StartInfo.RedirectStandardOutput = True
                    process.Start()
                    process.WaitForExit()
                    Dim sr As StreamReader = process.StandardOutput
                    Dim response1 As String = sr.ReadToEnd
                    process.Close()
                    lbloutput.Text = response1
                ElseIf DropDownList1.SelectedValue = 2 Then
                    Dim p As String
                    Dim process As New Process
                    process.StartInfo.WorkingDirectory = Server.MapPath("Vb\")
                    process.StartInfo.FileName = Server.MapPath("VB\") + txttitle.Text + ".exe"
                    p = txttitle.Text + " " + txtargs.Text
                    process.StartInfo.Arguments = p
                    process.StartInfo.UseShellExecute = False
                    process.StartInfo.RedirectStandardError = True
                    process.StartInfo.CreateNoWindow = True
                    process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                    process.StartInfo.RedirectStandardOutput = True
                    process.Start()
                    process.WaitForExit()
                    Dim sr As StreamReader = process.StandardOutput
                    Dim response1 As String = sr.ReadToEnd
                    process.Close()
                    lbloutput.Text = response1
                ElseIf DropDownList1.SelectedValue = 3 Then
                    Dim p As String
                    Dim process As New Process
                    process.StartInfo.WorkingDirectory = Server.MapPath("Java\")
                    process.StartInfo.FileName = "java"
                    p = txttitle.Text + " " + txtargs.Text
                    process.StartInfo.Arguments = p
                    process.StartInfo.UseShellExecute = False
                    process.StartInfo.RedirectStandardError = True
                    process.StartInfo.CreateNoWindow = True
                    process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                    process.StartInfo.RedirectStandardOutput = True
                    process.Start()
                    process.WaitForExit()
                    Dim sr As StreamReader = process.StandardOutput
                    Dim response1 As String = sr.ReadToEnd
                    process.Close()
                    lbloutput.Text = response1
                ElseIf DropDownList1.SelectedValue = 4 Then
                    Dim url As String
                    url = "~/HTML/" & txttitle.Text & ".html"
                    Response.Redirect(url)
 
 
                End If
 
            End If
        Else
            If DropDownList1.SelectedValue = 1 Then
                flag = 1
                'Dim p As String
                Dim process As New Process
                process.StartInfo.WorkingDirectory = Server.MapPath("Csharp\")
                process.StartInfo.FileName = Server.MapPath("Csharp\") + txttitle.Text + ".exe"
                'p = ".exe"
                'process.StartInfo.Arguments = p
                process.StartInfo.UseShellExecute = False
                process.StartInfo.RedirectStandardError = True
                process.StartInfo.CreateNoWindow = True
                process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                process.StartInfo.RedirectStandardOutput = True
                process.Start()
                process.WaitForExit()
                Dim sr As StreamReader = process.StandardOutput
                Dim response1 As String = sr.ReadToEnd
                process.Close()
                lbloutput.Text = response1
            ElseIf DropDownList1.SelectedValue = 2 Then
                flag = 1
                Dim p As String
                Dim process As New Process
 
                process.StartInfo.WorkingDirectory = Server.MapPath("Vb\")
                process.StartInfo.FileName = Server.MapPath("VB\") + txttitle.Text + ".exe"
                process.StartInfo.UseShellExecute = False
                process.StartInfo.RedirectStandardError = True
                process.StartInfo.CreateNoWindow = True
                process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                process.StartInfo.RedirectStandardOutput = True
                process.Start()
                process.WaitForExit()
                Dim sr As StreamReader = process.StandardOutput
                Dim response1 As String = sr.ReadToEnd
                process.Close()
                lbloutput.Text = response1
            ElseIf DropDownList1.SelectedValue = 3 Then
                flag = 1
                Dim p As String
                Dim process As New Process
                process.StartInfo.WorkingDirectory = Server.MapPath("Java\")
                process.StartInfo.FileName = "java"
                p = txttitle.Text
                process.StartInfo.Arguments = p
                process.StartInfo.UseShellExecute = False
                process.StartInfo.RedirectStandardError = True
                process.StartInfo.CreateNoWindow = True
                process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                process.StartInfo.RedirectStandardOutput = True
                process.Start()
                process.WaitForExit()
                Dim sr As StreamReader = process.StandardOutput
                Dim response1 As String = sr.ReadToEnd
                process.Close()
                lbloutput.Text = response1
 
            ElseIf DropDownList1.SelectedValue = 4 Then
                Dim url As String
                url = "~/HTML/" & txttitle.Text & ".html"
                Response.Redirect(url)
 
            End If
 
        End If
 
 
    End Sub
End Class
 

[Rabbit]

And which line throws the error?

[neeru]

203. process.start()

[Rabbit]

It sounds like the path of the file doesn't exist. I would check the path that it's trying to access. Not the path that you think it's accessing, but the path it is actually trying to access.

[neeru]

wht ur r saying im not getting it coulde u plz ellaborate it.

[r035198x]

You had another thread with the same problem (I can't find it anymore), anyway, you are trying to execute a command on line 203 in your code. The command is setup just before those lines. Either that command doesn't exist or it expects a file that doesn't exist. We don't know what that command is since you didn't show that code that creates it.

[neeru]

this is the code

Imports System.Data.SqlClient
Imports System.IO
Imports System.IO.File
Imports System.Diagnostics
Partial Class new_program
    Inherits System.Web.UI.Page
    Dim conn As SqlConnection
    Dim comm As SqlCommand
    Public ds As Data.DataSet
    Public da As SqlDataAdapter
    Public cs As String = System.Configuration.ConfigurationSettings.AppSettings.Item("connection_string")
    Public user_id As Integer
    Public program_id As Integer
    Public language_id As Integer
    Public program_text As String
    Public program_title As String
    Public flag As Integer = 0
 
    Protected Sub btnsubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsubmit.Click
        If txttitle.Text.Contains(" ") Then
            lblshow.Text = "*Please remove space from Program Title"
        Else
            If Request.QueryString("action") = "edit" Then
                program_id = Request.QueryString("program_id")
                conn = New SqlConnection(cs)
                conn.Open()
                da = New SqlDataAdapter
                da.SelectCommand = New SqlCommand
                da.SelectCommand.Connection = conn
                da.SelectCommand.CommandText = "program_update"
                da.SelectCommand.CommandType = Data.CommandType.StoredProcedure
                da.SelectCommand.Parameters.AddWithValue("@program_id", program_id)
                da.SelectCommand.Parameters.AddWithValue("@program_title", Trim(txttitle.Text))
                da.SelectCommand.Parameters.AddWithValue("@program_text", txtcode.Text)
                da.SelectCommand.Parameters.AddWithValue("@language_id", DropDownList1.SelectedValue)
                da.SelectCommand.ExecuteNonQuery()
                Response.Redirect("manage_programs.aspx?msg=update")
            Else
 
                user_id = CType(Session("aid"), Integer)
                conn = New SqlConnection(cs)
                conn.Open()
                da = New SqlDataAdapter
                da.SelectCommand = New SqlCommand
                da.SelectCommand.Connection = conn
                da.SelectCommand.CommandText = "program_insert"
                da.SelectCommand.CommandType = Data.CommandType.StoredProcedure
                da.SelectCommand.Parameters.AddWithValue("@user_id", user_id)
                da.SelectCommand.Parameters.AddWithValue("@program_title", Trim(txttitle.Text))
                da.SelectCommand.Parameters.AddWithValue("@program_text", txtcode.Text)
                da.SelectCommand.Parameters.AddWithValue("@language_id", DropDownList1.SelectedValue)
                da.SelectCommand.ExecuteNonQuery()
                'ds = New Data.DataSet
                'da.Fill(ds, "faculty_insert")
                Response.Redirect("manage_programs.aspx?msg=save")
 
            End If
        End If
 
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        lblargs.Text = ""
        If CheckBox1.Checked Then
            txtargs.Enabled = True
        Else
            txtargs.Enabled = False
        End If
        lblshow.Text = ""
        If DropDownList1.SelectedValue = 3 Then
            lblshow.Text = "*Class Name of Program and Program Title Should be Same"
        End If
        If Request.QueryString("action") = "edit" And Me.IsPostBack = False Then
            program_id = Request.QueryString("program_id")
            conn = New SqlConnection(cs)
            conn.Open()
            da = New SqlDataAdapter
            da.SelectCommand = New SqlCommand
            da.SelectCommand.Connection = conn
            da.SelectCommand.CommandText = "program_select"
            da.SelectCommand.CommandType = Data.CommandType.StoredProcedure
            da.SelectCommand.Parameters.AddWithValue("@program_id", program_id)
            ds = New Data.DataSet
            da.Fill(ds, "program_select")
            program_title = ds.Tables("program_select").Rows(0).Item("program_title")
            program_text = ds.Tables("program_select").Rows(0).Item("program_text")
            language_id = ds.Tables("program_select").Rows(0).Item("language_id")
            DropDownList1.SelectedValue = language_id
            txttitle.Text = program_title
            txtcode.Text = program_text
        End If
    End Sub
    Function InstanceCount(ByVal StringToSearch As String, ByVal StringToFind As String) As Integer
        If Len(StringToFind) Then
            InstanceCount = UBound(Split(StringToSearch, StringToFind))
        End If
    End Function
    Protected Sub btncompile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btncompile.Click
        If DropDownList1.SelectedValue = 1 Then
            Dim fs As FileStream = Nothing
            If (Not File.Exists(Server.MapPath("Csharp/" + txttitle.Text + ".cs"))) Then
                fs = File.Create(Server.MapPath("Csharp/" + txttitle.Text + ".cs"))
                Using fs
                End Using
            End If
            If File.Exists(Server.MapPath("Csharp/" + txttitle.Text + ".cs")) Then
                Using sw As StreamWriter = New StreamWriter(Server.MapPath("Csharp/" + txttitle.Text + ".cs"))
                    sw.Write(txtcode.Text)
                End Using
            End If
            Dim process As New Process
            process.StartInfo.WorkingDirectory = Server.MapPath("Csharp\")
            process.StartInfo.FileName = "csc"
            Dim p As String = txttitle.Text + ".cs"
            process.StartInfo.Arguments = p
            process.StartInfo.UseShellExecute = False
            process.StartInfo.RedirectStandardError = True
            process.StartInfo.RedirectStandardOutput = True
            process.StartInfo.CreateNoWindow = True
            process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            process.StartInfo.RedirectStandardOutput = True
            process.Start()
            process.WaitForExit()
            Dim sr As StreamReader = process.StandardOutput
            Dim response As String = sr.ReadToEnd
            process.Close()
            response = response.Remove(0, 165)
            If response.Trim = "" Then
                lblerror.ForeColor = Drawing.Color.Green
                lblerror.Text = "No Error Found"
                lbldesc.Text = "Success"
            Else
                Dim errcnt As Integer = InstanceCount(response, txttitle.Text)
                lblerror.ForeColor = Drawing.Color.Red
                lblerror.Text = errcnt.ToString + " errors found:"
                response = response.Replace(txttitle.Text, "<br/>" + txttitle.Text)
                lbldesc.Text = response
            End If
        ElseIf DropDownList1.SelectedValue = 2 Then
            Dim fs As FileStream = Nothing
            If (Not File.Exists(Server.MapPath("VB/" + txttitle.Text + ".vb"))) Then
                fs = File.Create(Server.MapPath("VB/" + txttitle.Text + ".vb"))
                Using fs
                End Using
            End If
            If File.Exists(Server.MapPath("VB/" + txttitle.Text + ".vb")) Then
                Using sw As StreamWriter = New StreamWriter(Server.MapPath("VB/" + txttitle.Text + ".vb"))
                    sw.Write(txtcode.Text)
                End Using
            End If
            Dim process As New Process
            process.StartInfo.WorkingDirectory = Server.MapPath("VB\")
            process.StartInfo.FileName = "vbc"
            Dim p As String = Server.MapPath("VB\" + txttitle.Text + ".vb")
            process.StartInfo.Arguments = p
            process.StartInfo.UseShellExecute = False
            process.StartInfo.RedirectStandardError = True
            process.StartInfo.RedirectStandardOutput = True
            process.StartInfo.CreateNoWindow = True
            process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            process.StartInfo.RedirectStandardOutput = True
            process.Start()
            process.WaitForExit()
            Dim sr As StreamReader = process.StandardOutput
            Dim response As String = sr.ReadToEnd
            process.Close()
 
            If response = "" Then
                lblerror.ForeColor = Drawing.Color.Green
                lblerror.Text = "No Error Found"
                lbldesc.Text = "Success"
            Else
                Dim len As Integer = response.Length
                Dim errcnt As String = response.Remove(0, len - 10)
                lblerror.ForeColor = Drawing.Color.Red
                lblerror.Text = errcnt + "found:"
                Dim a As String = response.Replace("D:\Project_2012-2013\App_suite_for_Cloud\app_suite\VB\", "* ")
                a = a.Remove(a.Length - 10, 9)
                lbldesc.Text = a.Replace("^", "<br/>")
            End If
        ElseIf DropDownList1.SelectedValue = 3 Then
            Dim fs As FileStream = Nothing
            If (Not File.Exists(Server.MapPath("Java/" + txttitle.Text + ".java"))) Then
                fs = File.Create(Server.MapPath("Java/" + txttitle.Text + ".java"))
                Using fs
                End Using
            End If
            If File.Exists(Server.MapPath("Java/" + txttitle.Text + ".java")) Then
                Using sw As StreamWriter = New StreamWriter(Server.MapPath("Java/" + txttitle.Text + ".java"))
                    sw.Write(txtcode.Text)
                End Using
            End If
            Dim process As New Process
            process.StartInfo.WorkingDirectory = Server.MapPath("Java\")
            process.StartInfo.FileName = "javac"
            Dim p As String = txttitle.Text + ".java"
            process.StartInfo.Arguments = p
            process.StartInfo.UseShellExecute = False
            process.StartInfo.RedirectStandardError = True
            process.StartInfo.CreateNoWindow = True
            process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            process.StartInfo.RedirectStandardOutput = True
            process.Start()
            process.WaitForExit()
            Dim sr As StreamReader = process.StandardError
            Dim response As String = sr.ReadToEnd
            process.Close()
            If response = "" Then
                lblerror.ForeColor = Drawing.Color.Green
                lblerror.Text = "No Error Found"
                lbldesc.Text = "Success"
            Else
                Dim len As Integer = response.Length
                Dim errcnt As String = response.Remove(0, len - 10)
                lblerror.ForeColor = Drawing.Color.Red
                lblerror.Text = errcnt + "found:"
                Dim a As String = response.Replace("D:\Project_2012-2013\App_suite_for_Cloud\app_suite\Java\", "* ")
                a = a.Remove(a.Length - 10, 9)
                lbldesc.Text = a.Replace("^", "<br/>")
            End If
 
        ElseIf DropDownList1.SelectedValue = 4 Then
            Dim fs As FileStream = Nothing
            If (Not File.Exists(Server.MapPath("HTML/" + txttitle.Text + ".html"))) Then
                fs = File.Create(Server.MapPath("HTML/" + txttitle.Text + ".html"))
                Using fs
                End Using
            End If
            If File.Exists(Server.MapPath("HTML/" + txttitle.Text + ".html")) Then
                Using sw As StreamWriter = New StreamWriter(Server.MapPath("HTML/" + txttitle.Text + ".html"))
                    sw.Write(txtcode.Text)
                End Using
            End If
 
        End If
 
    End Sub
 
 
    Protected Sub btnrun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnrun.Click
 
        If CheckBox1.Checked Then
            If Trim(txtargs.Text) = "" Then
                lblargs.Text = "Please provide argumnets."
            Else
                flag = 1
                If DropDownList1.SelectedValue = 1 Then
                    flag = 1
                    Dim p As String
                    Dim process As New Process
                    process.StartInfo.WorkingDirectory = Server.MapPath("Csharp\")
                    process.StartInfo.FileName = Server.MapPath("Csharp\") + txttitle.Text + ".exe"
                    p = txtargs.Text
                    process.StartInfo.Arguments = p
                    process.StartInfo.UseShellExecute = False
                    process.StartInfo.RedirectStandardError = True
                    process.StartInfo.CreateNoWindow = True
                    process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                    process.StartInfo.RedirectStandardOutput = True
                    process.Start()
                    process.WaitForExit()
                    Dim sr As StreamReader = process.StandardOutput
                    Dim response1 As String = sr.ReadToEnd
                    process.Close()
                    lbloutput.Text = response1
                ElseIf DropDownList1.SelectedValue = 2 Then
                    Dim p As String
                    Dim process As New Process
                    process.StartInfo.WorkingDirectory = Server.MapPath("Vb\")
                    process.StartInfo.FileName = Server.MapPath("VB\") + txttitle.Text + ".exe"
                    p = txttitle.Text + " " + txtargs.Text
                    process.StartInfo.Arguments = p
                    process.StartInfo.UseShellExecute = False
                    process.StartInfo.RedirectStandardError = True
                    process.StartInfo.CreateNoWindow = True
                    process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                    process.StartInfo.RedirectStandardOutput = True
                    process.Start()
                    process.WaitForExit()
                    Dim sr As StreamReader = process.StandardOutput
                    Dim response1 As String = sr.ReadToEnd
                    process.Close()
                    lbloutput.Text = response1
                ElseIf DropDownList1.SelectedValue = 3 Then
                    Dim p As String
                    Dim process As New Process
                    process.StartInfo.WorkingDirectory = Server.MapPath("Java\")
                    process.StartInfo.FileName = "java"
                    p = txttitle.Text + " " + txtargs.Text
                    process.StartInfo.Arguments = p
                    process.StartInfo.UseShellExecute = False
                    process.StartInfo.RedirectStandardError = True
                    process.StartInfo.CreateNoWindow = True
                    process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                    process.StartInfo.RedirectStandardOutput = True
                    process.Start()
                    process.WaitForExit()
                    Dim sr As StreamReader = process.StandardOutput
                    Dim response1 As String = sr.ReadToEnd
                    process.Close()
                    lbloutput.Text = response1
                ElseIf DropDownList1.SelectedValue = 4 Then
                    Dim url As String
                    url = "~/HTML/" & txttitle.Text & ".html"
                    Response.Redirect(url)
 
 
                End If
 
            End If
        Else
            If DropDownList1.SelectedValue = 1 Then
                flag = 1
                'Dim p As String
                Dim process As New Process
                process.StartInfo.WorkingDirectory = Server.MapPath("Csharp\")
                process.StartInfo.FileName = Server.MapPath("Csharp\") + txttitle.Text + ".exe"
                'p = ".exe"
                'process.StartInfo.Arguments = p
                process.StartInfo.UseShellExecute = False
                process.StartInfo.RedirectStandardError = True
                process.StartInfo.CreateNoWindow = True
                process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                process.StartInfo.RedirectStandardOutput = True
                process.Start()
                process.WaitForExit()
                Dim sr As StreamReader = process.StandardOutput
                Dim response1 As String = sr.ReadToEnd
                process.Close()
                lbloutput.Text = response1
            ElseIf DropDownList1.SelectedValue = 2 Then
                flag = 1
                Dim p As String
                Dim process As New Process
 
                process.StartInfo.WorkingDirectory = Server.MapPath("Vb\")
                process.StartInfo.FileName = Server.MapPath("VB\") + txttitle.Text + ".exe"
                process.StartInfo.UseShellExecute = False
                process.StartInfo.RedirectStandardError = True
                process.StartInfo.CreateNoWindow = True
                process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                process.StartInfo.RedirectStandardOutput = True
                process.Start()
                process.WaitForExit()
                Dim sr As StreamReader = process.StandardOutput
                Dim response1 As String = sr.ReadToEnd
                process.Close()
                lbloutput.Text = response1
            ElseIf DropDownList1.SelectedValue = 3 Then
                flag = 1
                Dim p As String
                Dim process As New Process
                process.StartInfo.WorkingDirectory = Server.MapPath("Java\")
                process.StartInfo.FileName = "java"
                p = txttitle.Text
                process.StartInfo.Arguments = p
                process.StartInfo.UseShellExecute = False
                process.StartInfo.RedirectStandardError = True
                process.StartInfo.CreateNoWindow = True
                process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                process.StartInfo.RedirectStandardOutput = True
                process.Start()
                process.WaitForExit()
                Dim sr As StreamReader = process.StandardOutput
                Dim response1 As String = sr.ReadToEnd
                process.Close()
                lbloutput.Text = response1
 
            ElseIf DropDownList1.SelectedValue = 4 Then
                Dim url As String
                url = "~/HTML/" & txttitle.Text & ".html"
                Response.Redirect(url)
 
            End If
 
        End If
 
 
    End Sub
End Class
 

[r035198x]

From the code around lines 203 it's probably failing to compile the java source files perhaps because the java compiler javac is not there (or not on the path) or the java source files themselves are missing.

[neeru]

but i have set the path actually it's running in vs2008 and when i add this into iis7 it started to throw this error

[Rabbit]

Are you using a relative path? If you are, there's your problem. You changed the location of the file so now the relative path points to the wrong place.

[neeru]

plzz chk it and reply asap if possible



path

 Dim process As New Process 
 process.StartInfo.WorkingDirectory = Server.MapPath("Java\")

[Rabbit]

Server.MapPath specifies a relative directory. If you move your file, then the path is no longer the same. Figure out what the new relative path is and specify it correctly. This is not something we can do for you because we have no idea how your directories are laid out.

An alternate option is to move the file you're trying to access into the same relative path.

[neeru]

thankx for ur suggestion it was very help full to me


my prblm is solved now

[Rabbit]

Glad you found your solution. Goodl uck with your project.

[neeru]

thank u very much

for ur replies