I am trying to convert OLE Embedded files back to the original DocSource.
We have a VB6 application that OLE embedded all types of files (doc, xls, pdf, htm, bmp, jpg, msg, txt) using the following method.

OLEDoc.CreateEmbed DocSource
Open "c:\docs\" & DocID For Binary Access Read Write As FileNum
OLEDoc.SaveToFile FileNum

The problem is that OLEDoc.object.SaveAs OrgFileName only works for MS Office files. What I am looking for is a way to byte copy the object to an output file or strip of the OLE header. All suggestions welcome.