Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat. The purpose of this eBook is to educate the reader about ransomware attacks.
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.
|Dcount Expression giving error ". . . contains invalid syntax"||9||66|
|can this macro be converted to sub procedure||4||33|
|microsoft Access form help||5||15|
|dropdownlist in asp.net vb.||3||21|
Join the community of 500,000 technology professionals and ask your questions.