Starting application with VBScript 1

[thelocaluk]

Hi, I use the following VB script to start my application
CODE
Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")
objXL.WorkBooks.Open "\\Oxfsrv1\USERS\Common\Andre's Work Folder\IQuaTracker\IquaDemo.xls"
I don't want this script to run if the applicaion is already open, how do I do that?

 

[mrmovie]

on error resume next
set x = getobject(,"excel.application")
if err.number<>0 then
set x = createobject("excel.application")
err.clear
end if

 

[thelocaluk]

Thanks mrmovie, it works a treat.

 

[mrmovie]

no probs, not sure the Err.Clear is needed/best idea after the second Set but glad it does what you were after