>hi,
>thank you very much,it works.
>
>but can i open somthing as winword,html,xml...
>via same code as under..
>

>local lcXLSFile,lcTemp
>lcXLSFile = GETFILE() && allow user to find file hard code if you know where it is
>
>#define xlRangeAutoFormatColor2 8
>oExcel = createobject("Excel.Application")
>createobject(oExcel[, Excel, Winword , Html , Xml].Application)
>with oExcel
>.WorkBooks.Open(m.lcXLSFile)
>.Visible = .T.
>endwith
>
>

>
>
>thanks.
>best regards.
>m.qasem


Oh you want something to open it but do nothing with VFP. Then use ShellExecute:

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

ShellExecute(0,'Open',getfile(),'','',1)

Cetin