SFFExe = WSHShell.RegRead( 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Firefox.EXE\')
' Website : ' Purpose : Open a URL in FireFox ' Copyright : The following is release as Attribution-ShareAlike 4.0 International ' (CC BY-SA 4.0) - ' Req'd Refs: Uses Late Binding, so none required ' ' Input Variables: ' ~~~~~~~~~~~~~~~~ ' sURL : URL to open in FifeFox ' ' Usage: ' ~~~~~~ ' Call OpenURLInFF('') ' Call OpenURLInFF('') ' ' Revision History: ' Rev Date(yyyy/mm/dd) Description ' ************************************************************************************** ' 1 Initial Release ' 2 Updated Copyright under CC licensing ' Error trapped FireFox not installed '- Sub OpenURLInFF( ByVal sURL As String)ĭim WSHShell As Object Dim sFFExe As String 'FF executable path/filename 'Determine the Path to FF executable Set WSHShell = CreateObject( 'WScript.Shell') '- ' Procedure : OpenURLInFF ' Author : Daniel Pineault, CARDA Consultants Inc.
