Custom Search

Tuesday, October 2, 2007

Connect to website

' ----------------------------------------
' Required Imports :
'
' Microsoft.VisualBasic
' System
' ----------------------------------------

Dim baseUri As New Uri("http://www.it-medan.blogspot.com/")
Dim relativeUri As New Uri("images/index.htm?id=null")

' Compose absolute Uri using the base and the relative Uri.
Dim absoluteUri As New Uri(baseUri, relativeUri)

Dim absolute As String = absoluteUri.AbsolutePath()

No comments: