>Hi, Tim!
>
>Here is enclosed code from example that I found in Windows SDK for IMAPI2
>but I can't resolve the problem when AddTree method is called.
>May be somebody help us with this code.
>
>

>Lparameters lpcFolder2Write
>If Empty(lpcFolder2Write)
>   lpcFolder2Write="C:\0_Write2CD"
>Endif
>
>Local ;
>   loDiskMaster As IMAPI2.MsftDiscMaster2, ;
>   loRecoder As IMAPI2.MsftDiscRecorder2, ;
>   loFSI As IMAPI2FS.MsftFileSystemImage, ;
>   loDiscDir As IMAPI2FS.FsiDirectoryItem, ;
>   loDiscWriter As IMAPI2.MsftDiscFormat2Data, ;
>   lcRecorderID, loResult, loStream
>
>loDiscMaster=Createobject("IMAPI2.MsftDiscMaster2")
>lcRecorderID=loDiscMaster.Item(0)
>loRecorder=Createobject("IMAPI2.MsftDiscRecorder2")
>loRecorder.InitializeDiscRecorder(lcRecorderID)
>*!*   loRecorder.EjectMedia()
>*!*   lnUserReply=Messagebox("Insert blank CD media!",1+48,"Warning")
>*!*   If lnUserReply=2
>*!*      Return
>*!*   Endif
>*!*   loRecorder.CloseTray()
>
>*Here checks for media
>*? loDiscWriter.MediaPhysicallyBlank
>
>loFSI=Createobject("IMAPI2FS.MsftFileSystemImage")
>loDiscDir=loFSI.Root
>loDiscWriter=Createobject("IMAPI2.MsftDiscFormat2Data")
>loDiscWriter.Recorder=loRecorder
>? "Current Physical Media Type is: "
>?? loDiscWriter.CurrentPhysicalMediaType
>loDiscWriter.ClientName="Microsoft Visual FoxPro"
>loFSI.FreeMediaBlocks=loDiscWriter.FreeSectorsOnMedia
>loFSI.FileSystemsToCreate= 1  && FsiFileSystemISO9660
>loDiscDir.AddTree(lpcFolder2Write,.T.)
>
>loResult=loFSI.CreateResultImage
>loStream=loResult.ImageStream
>
>Wait "Writing content to CD..." Windows Nowait
>loDiscWriter.Write(loStream) && error probably because loStream not formed
>Wait "Finished!"
>

>
>
>
>
>>What are the issues when VFP needs to write to a CD?
>>
>>Thanks.
>>
>>
>>
>>Tim
_________
Juri,

There's a problem with the stream object that is returned. Vfp gets confused whereas it works with wscript

I've put a contribution on AtoutFox last year. You can (1) Format CDs, (2) Use the Addtree (DiskPath_Burn()), and (3) Burn an image (like a downloaded vs2008 image)

I've stopped there. The purpose was to make distribution CDs of my software and that is what I'm using it for
The links is http://www.atoutfox.com/articles.asp?ACTION=FCONSULTER&ID=0000000487

Skip the French intro - the program is in English

Vista or XPSp2