![]() 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 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |