Shell """" & sFFExe & """" & " -new-tab """ & sURL & "", vbHide Error_Handler_Exit: SFFExe = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Firefox.EXE\") Set WSHShell = CreateObject("WScript.Shell") ' 2 Updated Copyright under CC licensingĭim sFFExe As String 'FF executable path/filename 'Determine the Path to FF executable
' Req'd Refs: Uses Late Binding, so none required ' Copyright : The following is release as Attribution-ShareAlike 4.0 International ' Author : Daniel Pineault, CARDA Consultants Inc. , vbOKOnly + vbCritical, "An Error has Occurred!" End If Resume Error_Handler_Exit Switch(Erl = 0, "", Erl 0, vbCrLf & "Line No: " & Erl) _ "Error Description: " & Err.Description & _ "Error Number: " & Err.Number & vbCrLf & _ MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ VbInformation Or vbOKOnly, "Unable to open the requested URL" Else MsgBox "FireFox does not appear to be installed on this compter", _ On Error Resume Next If Not WSHShell Is Nothing Then Set WSHShell = Nothing Exit Sub 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.
0 kommentar(er)
