create Word file from general field

[gattabria]

I have a general field with a one page Microsoft Word document. I need to create a Word.doc file from each record that contains the Word document and name the Word document the same as a text field in the same record.

 

[baltman]

This should do it. Tested ok on my machine with 2 sample docs. You may need to adjust the lenght of the header based on your VFP/Word versions. I used 610 here.

Brian

USE MyTable

SCAN
	lcOutputNameAndPath=SYS(5)+SYS(2003)+[\]+MyFileName &&Or where you want
	COPY TO MyTempFile NEXT 1
	lcFile=FILETOSTR("MyTempFile.FPT")
	STRTOFILE(RIGHT(lcFile,LEN(lcFile)-610),lcOutputNameAndPath)
ENDSCAN

DROP TABLE MyTempFile