Visual Basic

8-Feb-06 16:04

Hi All,

Ok I've been at this for a week now and obviously I don't get it. I've got some of the code right cause it does work but as soon as I try to save a url it tells me that URI's cannot be put into a richtext box. ?? I have a button that opens a SaveFileDialog box and the way it is now works just fine but when I try to save the url that's in my AxWebBrowser it doesn't work. What I am doing wrong here? What am I just not getting? (Yes Newbbie Wink | ;-)

)

This is my code for the button so far:

Private Sub Faves_b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Faves_b.Click<br />
<br />
' Find the directory of the user's Favorites.<br />
<br />
Dim objRegKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser<br />
<br />
Dim objFav As Microsoft.Win32.RegistryKey = objRegKey.OpenSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders")<br />
<br />
Dim strFavoritesPath As String = objFav.GetValue("Favorites")<br />
<br />
' Set properties of Dialog-box.<br />
<br />
Dim myStream As Stream<br />
<br />
Dim SaveFileDialog As New SaveFileDialog<br />
<br />
Dim URLName = AxWebBrowser.LocationName<br />
<br />
Dim URLAddress = AxWebBrowser.LocationURL<br />
<br />
SaveFileDialog.Title = "Add To Your Favorites"<br />
<br />
SaveFileDialog.InitialDirectory = strFavoritesPath<br />
<br />
SaveFileDialog.FileName = URLName<br />
<br />
SaveFileDialog.Filter = "URL Files (*.url)|*.url"<br />
<br />
SaveFileDialog.FilterIndex = 1<br />
<br />
SaveFileDialog.DefaultExt = "*.url"<br />
<br />
SaveFileDialog.RestoreDirectory = True<br />
<br />
' Now display the SaveFileDialog so the user can save the url.<br />
<br />
SaveFileDialog.ShowDialog()<br />
<br />
' If the file name is not an empty string save it .<br />
<br />
If SaveFileDialog.FileName <> "" Then<br />
<br />
Dim RichTextBox As New RichTextBox<br />
<br />
RichTextBox1.LoadFile(URLAddress)<br />
<br />
RichTextBox.SaveFile(URLAddress, RichTextBoxStreamType.RichText)

End If

End Sub

Thanx to anyone that can contribute to the "Help the Newbbie Program" Wink | ;-)

Dave Kreskowiak9-Feb-06 4:17

9-Feb-06 4:17

All youre'trying to do is save a URL as a shortcut somewhere, right?

Deceptively easy! Have you ever just opened one in Notepad? All you have to do is create a normal text file, with the filename ending in .URL and write this to it:

[InternetShortcut]
URL=urlPath
 
 
For example, Yahoo.URL:
[InternetShortcut]
URL=http://www.yahoo.com/

I have no idea what you're trying to do with a RichTextBox. It doesn't support loading HTML files...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

-- modified at 10:19 Thursday 9th February, 2006

Darshon9-Feb-06 16:45

9-Feb-06 16:45

Hey someone answered. lol I posted this in a couple of different forums and this is the only one that's answered me. Yes all I'm trying to do is save a url link from my browser. That's it! I've tried just saving a text file with the url extension but again I must be doing something wrong cause I can't seem to get it to write on the file. Can you help me out with this too?

Dave Kreskowiak9-Feb-06 18:04

9-Feb-06 18:04

Well, in the code that you posted, you didn't open any file and write anything to it. The RichTextBox won't do anything for you and you're using it's methods incorrectly.

You're looking for something most like this:

If SaveFileDialog.ShowDialog = DialogResult.OK Then
    Dim fs As Stream = SaveFileDialog.OpenFile()
    If Not (fs Is Nothing) Then
        fs.WriteLine("[InternetShortcut]")
        fs.WriteLine(String.Format("URL={0}", URLAddress))
        fs.Close()
    End If
End If

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Darshon9-Feb-06 19:58

9-Feb-06 19:58

Hi Dave,

When I put the code in there it tells me that "WriteLine" is not part of System.IO.Stream???

Dave Kreskowiak10-Feb-06 1:24

10-Feb-06 1:24

Too damn sleepy last night. A little simpler:

If SaveFileDialog.ShowDialog = DialogResult.OK Then
    Dim sw As New StreamWriter(SaveFileDialog.FileName)
    sw.WriteLine("[InternetShortcut]")
    sw.WriteLine(String.Format("URL={0}", URLAddress))
    sw.Close()
End If

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Darshon10-Feb-06 4:53

10-Feb-06 4:53

Hi Dave,

Thank you very much, it works just fine now. Smile | :)

Now that I can add to favorites, the next step is to open them in my WebBrowser.

Thanks for your help

Dave Kreskowiak10-Feb-06 13:42

10-Feb-06 13:42

Start it in a browser on your form or just launch the thing like someone double-clicked the shortcut on the desktop?

If it's to launch the shortcut like double-clicking it, then all you have to use is use the Process class.

Dim newProcess As New Process("filename.url")
newProcess.Start()

If it's a browser on your form, then all you have to do is call the browser's .Navigate() method, passing in the full path to the *.URL file.

WebBrowser1.Navigate("filename.url")

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Darshon10-Feb-06 17:38