CodeItBetter Programming Another VB Programming Blog

'System & API - How to make sure whether an exe is running already or not
Private Sub Main()
    Debug.Print IsProcessRunning("C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE")
    Debug.Print IsProcessRunning("C:\Program Files\Microsoft Visual Studio\VB98\NotRunning.EXE")
End Sub
 
Private Function IsProcessRunning(ByVal sPath As String) As Boolean
    On Error Resume Next
    IsProcessRunning = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process " & _
        "WHERE ExecutablePath = '" & Replace(sPath, "\", "\\") & "'").Count
End Function