save file dialog?

[iwdu15]

how can i create a code to make my program create an rtf file? heres what i
have so far, any help would be appreciated:
Private Sub MenuItem2_Click (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles mnuSave.Click
Me.SaveFileDial og1.ShowDialog( )
Me.SaveFileDial og1.CheckFileEx ists = True
Me.SaveFileDial og1.CheckPathEx ists = True
Me.SaveFileDial og1.AddExtensio n = True
Me.SaveFileDial og1.Dereference Links = True
Me.SaveFileDial og1.DefaultExt = ".rtf"
End Sub

[Crouchie1998]

SaveFileDialog1 .Filter = "RTF Files (*.rtf)|*.rtf"

[iwdu15]

That still didnt work, should it look like:
Private Sub MenuItem2_Click (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles mnuSave.Click
Me.SaveFileDial og1.ShowDialog( )
Me.SaveFileDial og1.CheckFileEx ists = True
Me.SaveFileDial og1.CheckPathEx ists = True
Me.SaveFileDial og1.AddExtensio n = True
Me.SaveFileDial og1.Dereference Links = True
Me.SaveFileDial og1.Filter = "RTF Files (*.rtf)|*.rtf"

End Sub

[Crouchie1998]

Dim strFilename As String
With SaveFileDialog1
.DefaultExt = "rtf"
.Filter = "RTF (*.rtf)|*.rtf|A ll Files (*.*)|*.*"
.FilterIndex = 0
.InitialDirecto ry =
Environment.Get FolderPath(Envi ronment.Special Folder.Desktop)
If .ShowDialog = DialogResult.OK Then
strFilename = .FileName
Else
Exit Sub
End If
End With
MessageBox.Show (strFilename)

[iwdu15]

i put that in, it says its saved yet the file isnt there

[Crouchie1998]

You originally asked about the file save dialog, which you got.

Here;s the full code to create the file too:

Dim strFilename As String
With SaveFileDialog1
.DefaultExt = "rtf"
.Filter = "RTF (*.rtf)|*.rtf|A ll Files (*.*)|*.*"
.FilterIndex = 0
.InitialDirecto ry =
Environment.Get FolderPath(Envi ronment.Special Folder.Desktop)
If .ShowDialog = DialogResult.OK Then
strFilename = .FileName
Else
Exit Sub
End If
End With
Dim sw As New IO.StreamWriter (strFilename)
sw.Close()

That will do the trick. Just copy/paste it in your menu click event.

By the way: It creates an EMPTY file & closes it.

[iwdu15]

if i go to the open dialog will the file open and have everything that was
shwon on the screen?

[Crouchie1998]

RTF files are usually handled by MS Word or Wordpad if MS Office isn't
installed. You will notice the file icon is either Wordpad or MS Word

So, use the same idea as the save file dialog & it shall open

[iwdu15]

whats the open file code if i wanted to open this file? and will it show it
exactly how i left it if there are pictures, labels, and text boxes or should
i use a different file format?

[Crouchie1998]

The code that goes between the StreamWriter & the close should be from a RTF
textbox & not a normal textbox.

Then use this code (incomplete) to open a Stream Reader object to put the
file into your RTF textbox:

Dim strFilename As String
With OpenFileDialog1
.DefaultExt = "rtf"
.Filter = "RTF (*.rtf)|*.rtf|A ll Files (*.*)|*.*"
.FilterIndex = 0
.InitialDirecto ry =
Environment.Get FolderPath(Envi ronment.Special Folder.Desktop)
If .ShowDialog = DialogResult.OK Then
strFilename = .FileName
Else
Exit Sub
End If
End With

As you see, its the same code, but using an OpenFileDialog instead.