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