Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim Name As String
Dim Url As String
Dim fileInf As FileInfo = New FileInfo("F:\Documents and Settings\pbanga\Favorites\Forums\Tek-Tips Forums for computer professionals.url")
Name = fileInf.Name.Substring(0, fileInf.Name.Length - fileInf.Extension.Length)
'Open the file.
Dim stream As New FileStream(fileInf.FullName, FileMode.Open)
Dim reader As New StreamReader(stream)
'go through each line.
Do While True
'get a line.
Dim buf As String = reader.ReadLine
If buf Is Nothing Then Exit Do
'does the string starts with "url="
If buf.StartsWith("URL=") Then
'set the url.
Url = buf.Substring(4)
'quit.
Exit Do
End If
Loop
MessageBox.Show(Name)
MessageBox.Show(Url)
'close file.
reader.Close()
stream.Close()