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

>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
>>
>>
>>