Vereis, tengo un problema y no soy quien a solucionarlo.
Cuando abro un fichero rtf me da error, ¿Alguien sabe por que?
Aqui tengo el codigo:
CDialogo.Filter = "Archivos RTF (*.rtf)|*.rtf|Archivos de Texto (*.txt)|*.txt"
CDialogo.ShowOpen
On Error GoTo ExAbrir
If CDialogo.FilterIndex = 1 Then
RTB.LoadFile CDialogo.FileName, vbCFRTF
Else
RTB.LoadFile CDialogo.FileName, vbCFText
End If
Exit Sub
ExAbrir:
MsgBox ("Error Abrir: " & ExAbrir.Description)
Vamos, que por más que lo intento, no soy capaz de abrir un fichero en su formato, si es TXT quiero que el RichBox lo interprete como TXT, y si es RTF que lo interprete como tal.
