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
|Storing Combo Box Selection in Table||12||41|
|Operation must use an updatable query||4||23|
|MS Access Why isn't the relationship ID being copied when an input is made?||7||19|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!