Public Function sDBrowserPath() As String
Dim oShell As Object
Set oShell = CreateObject("WScript.shell")
sDBrowserPath = Split(oShell.RegRead("HKEY_CLASSES_ROOT\HTTP\shell\open\command\"), Chr(34))(1)
End Function
Get Default browser path Vb6
code:
Set oShell = Nothing
ReplyDeleteClick to see the code!
To insert emoticon you must added at least one space before the code.