WITH thisform.combo1

thisform.text17.value=.list(.listindex,1)
thisform.text4.value=.list(.listindex,2)

m.lcFileName=thisform.text4.value+"."+"doc"

SET DEFAULT TO c:\deal

declare long ShellExecute in "shell32.dll" ;
	long hwnd, string lpszOp, ;
	string lpszFile, string lpszParams, ;
    string lpszDir, long nShowCmd

ShellExecute(0,'Open', m.lcFileName, 0,0,1)
*ShellExecute(0,'Open', GETFILE(), 0,0,1)

ENDWITH