Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
|VBA or Script to identify files which are duplicate in a folder||6||31|
|Converting Access 2003 db to 2010 db: Errors in calculated fields appear after closing pop-up form||5||19|
|Importing Excel file into Access||5||22|
|What is the VB code to run a Macro after some event on a Text in a Form, say After Update.||5||18|