msg box cancel help in vbs

the following vbscript will copy the Netscape folder. It has a OK and cancel button but I cant get the cancel to work. What I need it to do is if the user clicks on it, it just returns to Windows. Right now it just continues to execute. Any thoughts? Thanks

msgbox("Please select OK to continue shutting down or X out and return to Windows"),vbOKCancel
Dim shell
Set shell = CreateObject("WScript.Shell")
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fld
Set fld = fso.GetFolder("C:\Documents and Settings\user\Application Data\Netscape")
Dim fl
for each fl In fld.Files
fl.Copy("Q:\Netscape\" & fl.Name)
Next
dim nFld
for each nFld In fld.SubFolders
nfld.Copy("Q:\Netscape\" & nFld.Name)
Next
Set fld = Nothing
Set fso =Nothing

 

You need to catch the return value, check if Cancel was pressed, and quit if it was:

Code:

if msgbox("Please select OK to continue shutting down or X out and return to Windows",vbOKCancel)=2 then wscript.quit

If you are shutting down Windows, you may need extra code to cancel the shutdown.

BTW, you could use fso.FolderCopy instead of copying each file.