Hi Gregory,

set proc to cd_writer additive
	
	local obj
	
	&& Erase
	do case
	case !cd_writer_Object(@m.obj)
		&& error
	case !m.obj.Media_Erase('Q:\')
		&& error
	endcase
	
	&& make CD with FileSystem
	local FileSystem
	&& FileSystem = 1 && ISO
	&& FileSystem = 3 && ISO + Joliet extensions
	&& FileSystem = 4 && UDF
	
	&& default FileSystem = Joliet
	
	do case
	case !cd_writer_Object(@m.obj)
		&& error
	
	case !m.obj.DiskPath_Burn('\tmp\Adam', 'Q:\', 'CouCou', m.FileSystem)
		&& error
	endcase
	
	&& burn image
	do case
	case !cd_writer_Object(@m.obj)
		&& error
	case !obj.Image_Burn('D:\tmp\In\Beta2ExpresssComboDVD.img', 'Q:\')
		&& error
	endcase

Thank for your answer.
I want just copy file ( Test.txt ) from c:\MyApp TO DVD (CD) D:\Test (Folder not existing ).

How can do it ?


bernhart


>>Hi all,
>>
>>
>>I search a good solution to copy files into CDs IN VFP 9.2...
>>
>>OS = WINDOWS XP , VISTA , WINDOWS 2003 AND WINDOWS 2008.
>>
>>who can help me?
>>
>>
>>Thank in advance for help.
>>
>>
>>bernhart
>
>
>http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000487