by COBS Tech Support » Tue Sep 05, 2006 5:48 pm
Create a field object and ensure that the parameter 'Look-up Button' is ticked and inside the Formula tab paste the following script. This script also removes the '.STY' extension from the selected file name for neatness.
***
If ButtonPress
Declare cForm Type Character
cForm := InputFile('STY', TRUE, PathProgram())
If "\" $ cForm
cForm := Substr(cForm, RAT("\", cForm) + 1)
Endif
If "." $ cForm
cForm := Left(cForm, AT(".", cForm) - 1)
Endif
SCRWrite("KITFORM", cForm)
Endif