See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
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
|Spell checking an unbound form in MS Access 2013||9||36|
|Query Missing Money orders...||6||62|
|Syntax error with between dates||6||17|
|Trying to display the sum of values on a subform on the main form||6||20|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!