This will add the files of a certain directory to the wait-list of files to be burned.
[VBA]Sub burn_a_cd()
'Provide the drive letter of your CD burner
strDriveLetter = Application.InputBox("Driveletter : ", "Driveletter", "D", Type:=2) & ":\"
'Provide the source directory. We made one on the c drive
'and everything we put in this directory will be put on a cd
strSourceDirectory = "C:\TOBURN"
'Provide a volume name for your CD (16 characters max)
strCDName = Date
Const MY_COMPUTER = &H11
Set WShshell = CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")
strBurnDirectory = WShshell.RegRead( _
"HKCU\Software\Microsoft\Windows\CurrentVersion\" _
& "Explorer\Shell Folders\CD Burning")
Set objFolder = objShell.Namespace(strSourceDirectory)
objShell.Namespace(strBurnDirectory).CopyHere objFolder.Items
objShell.Namespace(&H11&).ParseName(strDriveLetter).InvokeVerbEx ( _
"Write &these files to CD")
End Sub[/VBA]Charlize