Sorry - ignore the code in the previous post bad case of cut paste delete a bit and not checking what's left!!!

Here we are...

local intFileCount, strPath
with thisform
.filefinder.cFileExpression = oApp.ProdExe
.filefinder.cSearchPath = "c:\"
.filefinder.find(0)
if vartype(.filefinder.oFiles) == "O" then
messagebox("Found")
strPath = .filefinder.files.item(1).path
else
messagebox("Not Found")
endif
endwith

Thanks again