' First, set up the message

'

strText = "Are you sure you want to copy" & Chr(13)

strText = strText & "the selected files to drive A?"

strTitle = "Copy Files"

intType = vbYesNoCancel + vbQuestion + vbDefaultButton2

'

' Now display it

'

Set objWshShell = WScript.CreateObject("WScript.Shell")

intResult = objWshShell.Popup(strText, ,strTitle, intType)