Newbie - Save Code as new .vbs file in startup folder

[mukker]

Hi peeps,
I have this code the moment.

Set objShell = CreateObject("Wscript.Shell")

intMessage = Msgbox("Would you like to access this site?", _
vbYesNo, "Access Denied")

If intMessage = vbYes Then
objShell.Run("

http://www.google.com")

Else
Wscript.Quit
End If


I want a user to click/double click a .vbs file which will save this code
to their startup folder as a new .vbs file.

Clear as mud??


TIA

 

[PHV]

Take a look at FileSystemObject and at WScript.SpecialFolders("AllUsersStartup")

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244