Bring instance of program forward?

[Guest_imported]

I have the code below that opens notepad...where would I put an IF statement to say either...bring the window forward or open a new one? I put comments in there but I"m not sure if that's where they go

Private Sub Command1_Click()
Dim path As String
Dim ret As Long
path = Space$(255)

ret = GetWindowsDirectory(path, 255)
path = Left$(path, ret)
path = path & "\notepad.exe" ' this is just to get the notepad path

' use this call instead of standard Shell function

' IF NOTEPAD IS OPEN - BRING FORWARD
'ELSE
Module1.ShellIt (path)

End Sub

 

[dm7941]

If you want a really dirty quick way, you can use the error returned by appactivate when a window does not exist

On Error Resume Next
AppActivate "Notepad"
If Err.Number = 5 Then
Shell "notepad", vbNormalFocus
End If
Err.Clear

If notepad is already open, this sets focus to it, but does not change it's window state (minimized, maximized, etc) David Moore
dm7941@sbc.com