Blockchain is a technology that underpins the success of Bitcoin and other digital currencies, but it has uses far beyond finance. Learn how blockchain works and why it is proving disruptive to other areas of IT.
Private Sub cmd_burn_cd_Click() 'Provide the drive letter of your CD burner strDriveLetter = InputBox("Driveletter: ", "Driveletter", "D") & ":\" '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 = Me.batch_output_location 'Provide a volume name for your CD (16 characters max) strCDName = Me.batch_reference 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.