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.
please help me i'm desperate!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
Thanks
nick




Reply With Quote