como saber si programa esta ejecutandose

[jimylu]

Quiero saber como saber con VB.NET si una aplicacion se esta ejecutando en memoria por ejm quiero saber si el programa excel esta ejecutandose

eh realizado este codigo pero no me funciona siempre me sale q no esta ejecutandose a pesar de que en el administrador de tareas si figura el EXCEL.EXE cargando.

Código:

Dim rpro As Boolean
        Dim p As Process
        For Each p In Process.GetProcesses()
            If Not p Is Nothing Then
                If p.ProcessName = "EXCEL.EXE" Then
                    rpro = True
                Else
                    rpro = False
                End If
            End If
        Next
        If rpro = True Then
            MsgBox("excel se esta ejecutando")
        Else
            MsgBox("excel no ejecutandose", MsgBoxStyle.Exclamation)
        End If

[Ka0stj]

Que tal jimylu

Prueba quitando el .EXE, por otro lado si encuentras dicho proceso sacalo con un Exit For ya que seguira recorriendo los procesos que se estan ejecutando y te pondra la bandera en False.

Código C:

Dim rpro As Boolean
        Dim p As Process
        For Each p In Process.GetProcesses()
            If Not p Is Nothing Then
                If p.ProcessName = "EXCEL" Then
                    rpro = True
                    Exit For
                Else
                    rpro = False
                End If
            End If
        Next
        If rpro = True Then
            MsgBox("excel se esta ejecutando")
        Else
            MsgBox("excel no ejecutandose", MsgBoxStyle.Exclamation)
        End If
 

Saludos.

[jimylu]

gracias por la respuesta pero si ya lo habia probado quitando el .exe y nada pero ya lo solucione aqui les dejo el codigo por seacaso a alquien le pueda ayudar y le pase lo mismo que a mi.

Código vb:

Dim ejecutando As Process() = Process.GetProcessesByName("excel")
        If ejecutando.Length > 0 Then
            MessageBox.Show("la aplicacion se esta ejecutando")
        Else
            MsgBox("No ejecuntando")
        End If