I need to register a client script and the script must be an absolute path.. so in my control I need to understand how to point directly to the /scripts path inside my module installation directory.

So if my site was at http://www.mydomain.com I need to know how to generate the path

http://www.mydomain.com/DesktopModules/myModule/Scripts

But the kicker is I need to ensure I am using the alias that is currently in use...

I am thinking I will use

HttpContext.Current.Request.Url

but this seems a bit odd... any better way to do this?

This is all I could come up with for how to render an absolute path to a folder in my module directory.. please advise if there is something better I should be doing.

    Public Function getControlPath(ByVal controlBase As String) As String
        Dim protocol As String = "http://"
        If Left(Request.ServerVariables("SERVER_PROTOCOL"), 5).ToLower = "https" Then
            protocol = "https://"
        End If
        Return protocol + Request.ServerVariables("SERVER_NAME") + controlBase
    End Function

I use it like this..

        csname = "gb_scripts"
        csText = "<script type=""text/javascript"" src=""" + getControlPath(Control.TemplateSourceDirectory) + "/greybox/gb_scripts.js""></script>"
        If (Not cs.IsClientScriptBlockRegistered(cstype, csname)) Then
            Page.ClientScript.RegisterClientScriptBlock(cstype, csname, csText.ToString, False)
        End If