Saving Files In Rich Text Box With Common Dialog Control

How do i do it??

Thanks

Steve

Try something like this:

Code:

---

Private Sub Command1_Click()
    On Error Resume Next
   
    With CommonDialog1
        .Filter = "Rich Text Format (*.rtf)|*.rtf"
        .ShowSave
        If Err.Number = cdlCancel Then Exit Sub
        RichTextBox1.SaveFile .FileName, rtfRTF
    End With
End Sub

---

------------------

Serge

Senior Programmer Analyst
[email protected]
[email protected]
ICQ#: 51055819

That works good. Now is there a way to save it as html? When I tried it i got lots of numbers and letters in the browser. :(


Steve

You can't just save it as RTF, you have to actually anylize the RTF code and convert it to HTML. Do a search for "RTF" at www.planetsourcecode.com and you'll find some code to do just that.

------------------
Micah Carrick
http://micah.carrick.com
[email protected]
ICQ: 53480225