>This code is VB code. If the createobject line will work for you, translating that code into VFP syntax seems pretty straightforward.

It seems pretty straightforward but it isn't

The Stream returned by result.ImageStream is not treated correctly by vfp, hence dataWriter.write(Stream) produces an error

The only way to have the burning run ok is to use the vb script

>>    ' Create an image from the file system
>>    Dim result
>>    Set result = FSI.CreateResultImage()
>>    Stream = result.ImageStream


>>    dataWriter.write(Stream)

>>I found this message by Tore indication.
>>
>>But I notice the below has "dim".
>>
>>Can anyony confirm it's a VFP function ?
>>
>>
>>Moises
>>
>>
>>
>>>use IMAPI Please check the link and sample code below perhaps you can convert that into VFP since its a COM
>>>http://msdn2.microsoft.com/en-us/library/aa364817.aspx
>>>
>>>
>>>

>>>
>>>' This script burns data files to disc in a single session 
>>>' using files from a single directory tree.
>>> 
>>>' Copyright (C) Microsoft Corp. 2006
>>>
>>>Option Explicit
>>>
>>>' *** CD/DVD disc file system types
>>>Const FsiFileSystemISO9660 = 1
>>>Const FsiFileSystemJoliet  = 2
>>>Const FsiFileSystemUDF102  = 4
>>>
>>>WScript.Quit(Main)
>>>
>>>Function Main
>>>    Dim Index                ' Index to recording drive.
>>>    Dim Recorder             ' Recorder object
>>>    Dim Path                 ' Directory of files to burn
>>>    Dim Stream               ' Data stream for burning device
>>>    
>>>    Index = 1                ' Second drive on the system
>>>    Path = "g:\BurnDir"      ' Files to transfer to disc
>>>
>>>    ' Create a DiscMaster2 object to connect to optical drives.
>>>    Dim g_DiscMaster
>>>    Set g_DiscMaster = WScript.CreateObject("IMAPI2.MsftDiscMaster2")
>>>
>>>    ' Create a DiscRecorder object for the specified burning device.
>>>    Dim uniqueId
>>>    set recorder = WScript.CreateObject("IMAPI2.MsftDiscRecorder2")
>>>    uniqueId = g_DiscMaster.Item(index)
>>>    recorder.InitializeDiscRecorder( uniqueId )
>>>
>>>    ' Create an image stream for a specified directory.
>>>    Dim FSI                  ' Disc file system
>>>    Dim Dir                  ' Root directory of the disc file system
>>>    Dim dataWriter    
>>>        
>>>    ' Create a new file system image and retrieve root directory
>>>    Set FSI = CreateObject("IMAPI2FS.MsftFileSystemImage")
>>>    Set Dir = FSI.Root
>>>
>>>    'Create the new disc format and set the recorder
>>>    Set dataWriter = CreateObject ("IMAPI2.MsftDiscFormat2Data")
>>>    dataWriter.recorder = Recorder
>>>    dataWriter.ClientName = "IMAPIv2 TEST"
>>>
>>>    FSI.FreeMediaBlocks = datawriter.FreeSectorsOnMedia
>>>    FSI.FileSystemsToCreate = FsiFileSystemISO9660
>>>        
>>>    ' Add the directory and its contents to the file system 
>>>    Dir.AddTree Path, false
>>>        
>>>    ' Create an image from the file system
>>>    Dim result
>>>    Set result = FSI.CreateResultImage()
>>>    Stream = result.ImageStream
>>>    
>>>    ' Write stream to disc using the specified recorder.
>>>    WScript.Echo "Writing content to disc..."
>>>    dataWriter.write(Stream)
>>>
>>>    WScript.Echo "----- Finished writing content -----"
>>>    Main = 0
>>>End Function
>>>
>>>
>>>