Ready to get started with anonymous questions today? It's easy! Learn more.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.