MakeAbs Method Example

This example changes a relative URL to an absolute URL.

Note   To run this example, you must have a web and a file called "C:\My Documents\My Webs\Rogue Cellars\Zinfandel.htm" (for a server running on Microsoft Windows) or "C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars\Zinfandel.htm" (for a server running on Windows NT). In either case, you may substitute an alternative web URL or file.

Private Sub MakeURLAbsolute()
Dim myBaseURL As Web
Dim myAbsAddress As String
Dim myLocalUrl As String

myBaseURL = Webs.Open("C:\My Webs")
myLocalUrl = "Zinfandel.htm"

myAbsAddress = MakeAbs(myBaseURL, myLocalUrl)
End Sub