I have a table which contains a general field. That field holds a DOC, PDF or an Excel file. I need to extract that content and save that to disk. What would be the easiest approach to do that?

For now, I am using the approach as mentioned in Message #1232305. However, this returns an empty value for the .oleclass property on all the records. And, on all the records I have obtained, there is a file in the general field. Here is the code once again:

*Procedure YGeneral_PrintWord
* assuming there is a table having General field lcfile and there is a WORD document, embedded

close all
use MyTable
Genfiedname="z_data"

local oForm
oForm = Createobject('_Form')

SCAN
   MESSAGEBOX(STR(RECNO()))
   WITH oForm.myOle1
      ControlSource = ALIAS()+'.'+GenfiedName
	   IF .oleclass="Word.Document"
		   * set the control size properly; 
   		   *  otherwise the document paper size may be not properly inherited.
                                              .width=600  
		   .height=800
		   .object.Activate
		   .object.PrintOut(0)
     	ELSE
	    	?"?  OLeclass: ", .oleclass
    	endif	
   ENDWITH
ENDSCAN

=oForm.Release()
RETURN
*-------------------------------------------------------------------
Define Class _Form As Form
	PROCEDURE iNIT
		this.addobject('myOLe1',"OleBoundControl")
	ENDPROC
Enddefine
close all

I simply took the one from Message #1232305 and adjusted it so it would scan the records and print the .oldclass property value.