Ошибка при открытии файла rtf вRich textBox

[Yuri_S]

Почему кода я сохранил файл в RTB с расширением rtf то потом при открытии этого-же файла, мне выдает ошибку?
И еще-при попытке открытия этого файла Ворд-ом, говорит, что файл "нестандартный" и предлагает конвертацию в чисто вордовский....чего так получается,я ведь специально сохраняю как ртф текст........Вот код сохранения файлика

Dim txt As String
Dim FNum As Integer
On Error GoTo FileError:
CommonDialog1.CancelError = True
CommonDialog1.DefaultExt = "TXT"
CommonDialog1.Filter = "Text Files|*.TXT|RTF Files|*.RTF|All Files|*.*"
CommonDialog1.ShowSave

RichTextBox1.SaveFile CommonDialog1.FileName, 1
OpenFile = CommonDialog1.FileName
Exit Sub

FileError:
If Err.Number = cdlCancel Then Exit Sub
MsgBox "Unkown error while opening file " & CommonDialog1.FileName
OpenFile = ""

[Oxygen]

Ты сохраняешь в файл с расширением RTF текст в формате TXT. А для загрузки в RichTextBox есть функция LoadFile имя_файла, тип файла.
Тип файла: 1 - TXT, 0 - RTF.
Вот пример:

Код: Выделить всё

Dim RTFOption As Integer
Dim txt As String
Dim FNum As Integer
On Error GoTo FileError:
CommonDialog1.CancelError = True
CommonDialog1.DefaultExt = "TXT"
CommonDialog1.Filter = "Text Files|*.TXT|RTF Files|*.RTF|All Files|*.*"
CommonDialog1.ShowSave
If LCase$(Right$(CommonDialog1.filename, 3)) = "rtf" Then RTFOption = 0 Else RTFOption = 1
RichTextBox1.SaveFile CommonDialog1.filename, RTFOption
RichTextBox1.Text = ""
MsgBox ("File was saved")
RichTextBox1.LoadFile CommonDialog1.filename, RTFOption
MsgBox ("File was opened")
GoTo allok
FileError:
If Err.Number = cdlCancel Then Exit Sub
MsgBox "Unkown error while opening file " & CommonDialog1.filename
OpenFile = "": Exit Sub
allok: MsgBox ("All_OK")

[gaidar]

Отлично. Тема закрыта.