Rem Save
Public Sub Save()
Dim fso As New FileSystemObject, ts As TextStream, newStr As String
With frmMain
.SaveDialog.Filter = "Text Files (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf"
On Error GoTo cancelSave
.SaveDialog.ShowSave
.SaveDialog.FilterIndex = 1
If Right$(.SaveDialog.FileName, Len(.SaveDialog.FileName) - (Len(.SaveDialog.FileName) - 4)) = ".rtf" Then
newStr = .rtfNew.TextRTF
Call .rtfNew.LoadFile(.OpenDialog.FileName, rtfRTF)
.rtfNew.TextRTF = newStr
Call .rtfNew.SaveFile(.SaveDialog.FileName)
ElseIf Right$(.SaveDialog.FileName, Len(.SaveDialog.FileName) - (Len(.SaveDialog.FileName) - 4)) = ".txt" Then
Set ts = fso.CreateTextFile(.SaveDialog.FileName, True)
ts.Write (.rtfNew.Text)
ts.Close
End If
End With
cancelSave:
End Sub
Kad pozovem save on mi izbaci grešku i to ovdje: Dim fso As New FileSystemObject.
Kako da riješim ovaj problem?