open url - please help....desperate!

hi,

i have the following code in a vbscript file setup.vbs

Can someone provide me with the code to open the file index.htm if they click on no to the install bit.

Code:

---

option explicit

dim retval
Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")


retval = msgbox("Would you like to install this CD to your c:\?", _
        vbYesNo + vbQuestion, "Electronic product catalogue")

if retval = vbYes then
        ' Copy / install stuff her
        If Not objFSO.FolderExists("C:\BBAreman") then
                objFSO.CreateFolder("C:\BBAreman")
                objFSO.CreateFolder("C:\BBAreman\bba")
                objFSO.CreateFolder("C:\BBAreman\bba\catalogue")
                objFSO.CreateFolder("C:\BBAreman\bba\images")
                objFSO.CreateFolder("C:\BBAreman\bba\rotating")
                objFSO.CreateFolder("C:\BBAreman\bba\rotating\alternators")
                objFSO.CreateFolder("C:\BBAreman\bba\rotating\starters")
                objFSO.CreateFolder("C:\BBAreman\bba\rotating\images")
       
                objFSO.CopyFile "index.htm", "c:\BBAreman\"
                objFSO.CopyFile "bba\*.*", "c:\BBAreman\bba\"
                objFSO.CopyFile "bba\catalogue\*.*", "c:\BBAreman\bba\catalogue\"
                objFSO.CopyFile "bba\images\*.*", "c:\BBAreman\bba\images\"
                objFSO.CopyFile "bba\rotating\*.*", "c:\BBAreman\bba\rotating\"
                objFSO.CopyFile "bba\rotating\alternators\*.*", "c:\BBAreman\bba\rotating\alternators\"
                objFSO.CopyFile "bba\rotating\starters\*.*", "c:\BBAreman\bba\rotating\starters\"
                objFSO.CopyFile "bba\rotating\images\*.*", "c:\BBAreman\bba\rotating\images\"
        else
                msgbox("CD has already been copied to c:\BBAreman")
       
        end if       
else
        ' Open IE with file index.htm
end if

---

please help me i'm desperate!

Thanks
nick

Here's a code snippet which will create and open a new browser window. You may have to play with it a bit to get the effect you want.

Dim ieWin
Set ieWin = CreateObject("InternetExplorer.Application")
ieWin.Navigate "http://www.microsoft.com"
ieWin.Application.Visible=True

thanks sean

you have saved a young mans mind!

how do i get the window maximised as at the mo it minimized.

Thanks again

Nick

also,

when i try to open my file index.htm, it looks for http://index.htm. How can i get it to look in the same directory as the vb script?

To get it to open a File and Maximize use:

Dim ieWin
Set ieWin = CreateObject("InternetExplorer.Application")

ieWin.Navigate "File://c:\index.html"
ieWin.Application.Visible=True

ieWin.application.FullScreen=True
msgbox("Click Ok to close.")

ieWin.Application.Visible=False
Set ieWin = Nothing

I think there's probably a much better way to do this, but it seems to work.

I use an html / shelexe / autorun.txt

I hope it works for you

open_html.ZIP :)