> hi all,
>
> i try to open word doc via this code , no errors , no resault,
>

> 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
> 
> 

>
>
>
> thanks

LOCAL lcFileName, loword as word.application

lcFileName=thisform.text4.value+"."+"doc"
lcfilename = FULLPATH( CURDIR())+lcFIlename

loword = CREATEOBJECT("word.application")
loword.Documents.Open( lcFilename)
loword.Visible=.T.

Boudewijn Lutge®ink
http://www.vfpdevelopers-online.com
The truth will set you free, Ken knew the truth!