Rich Text Box Save/Load

[lavarock09]

What Is The Code So That When I Press The Save Button (called: mnuSave)

it saves what is in the rich text box (called: RichTextBox1) into a place specified

and What Is The Code So That When I Press The Load Button (called: mnuLoad)

it Loads a specified .rtf into the rich text box (called: RichTextBox1)

Thanx, Lavarock09

[paralinx]

dim strSave As String
 
Private Sub mnuSave_Click(Index As Integer)
 
strSave = richtextbox1.Text
 
Open C:\location For Append As #1
    Print #1, strSave
Close #1
 
End Sub
 
Private Sub mnuLoad_Click(Index As Integer)
 
Open C:\location for Input As #1
     Input #1, strSave
Close #1
 
richtextbox.Text = strSave
 
End Sub

[lavarock09]

with this i get the error

Compile Error: Procedure Declaration Does Not Match Desctiption Of Event Having The Same Name

with this line highlighted on both load and save ,"Private Sub mnuLoad_Click(Index As Integer"

And The Lines

Open C:\location for Input As #1

on the load script

and

Open C:\location For Append As #1

on the save script

are in Red

Thanx For Yor Help

[|2eM!x]

to save a RTB you need to do it this way to save the formatting:

Private Sub Form_Load()
    RichTextBox.SaveFile ("C:\yay.txt")
End Sub

To save a normal textbox/load it do it like so:

dim ff as integer
ff=freefile

Open "C:\yay.txt" for input as #FF'opens
text1.text = input$(LOF(FF),FF)
close #ff

Open "C:\yay.txt" For Append As #ff'writes to file
Print, text1.text
close #ff

[paralinx]

Oh I might have written the subs for your save buttons incorrectly... just open the code for your mnuSave and mnuLoad and put the code in there

As for C:\Directory you must put a directory in there for example this will save it to your desktop

Open C:\Desktop for Append as #1

[|2eM!x]

no it wont..Thats saving a textfile as your desktop! you need to add a file name and type after that.

Open "C:\Desktop\yay.txt" for Append as #1

it also must be in quotes

[lavarock09]

this one {QUOTE}Open C:\Desktop for Append as #1[/QUOTE]
still doesn't work

but |2eM!x's Does Work, but how do i make it so they can specify where to save

[|2eM!x]

do you want to use commondialog? (like when you click on file save in any program that box will pop up) or do you just want them to be able to type a filepath.

For commondialog:

Private Sub Form_Load() 'Opens
Dim ff As Integer
    With CommonDialog
        .FileName = vbNullString
        .InitDir = "C:"
        .ShowOpen
            If Len(.FileName) > 0 Then
            ff = FreeFile
                Open .FileName For Input As #ff
                    RichTextBox1.Text = Input(LOF(ff), ff)
                Close #ff
            End If
   End With
End Sub

Private Sub Form_Load()'to save
Dim ff As Integer
    With CommonDialog
        .FileName = vbNullString
        .InitDir = "C:"
        .ShowSave
            If Len(.FileName) > 0 Then
            ff = FreeFile
                Open .FileName For Output As #ff
                    Print #ff, RichTextBox1.Text
                Close #ff
            End If
    End With
End Sub

Without commondialog, use a textbox to specify file placement,

Open text1.text for input as #FF'opens
text1.text = input$(LOF(FF),FF)
close #ff

[lavarock09]

for saving, i have made a commondialog

and it says in the code

.FileName =

but i get the error "Method Or Data Member Not Found"

[|2eM!x]

.filename = vbnullstring

[lavarock09]

thanx a lot guys, but i fixed it (only the load, but i think i have nearly done save) with another code i typed myself

one thing though, how do you make a file list only display files with a certain extension, in my case the extension rtf

[|2eM!x]

.Filter = "RTF files (*.rtf)|*.rtf"

put this before your .showsave or .showload

[lavarock09]

i dont have that i have

this code for a file and directory list

Private Sub Dir1_Change()
File1.Path = Dir1.Path
Dim Path1 As String
Path1 = Dir1.Path
End Sub
 
Private Sub File1_Click()
Dim Path1 As String
Path1 = Dir1.Path
Text1.Text = Path1 & File1.FileName
End Sub

[|2eM!x]

well that isnt commondialog...

[lavarock09]

i know it isn't i changed them