Postada em 13/3/2004 por Josefh Hennyere Private Sub command1_Click() Dim strNew As String On Error GoTo ErrHandler CommonDialog1.CancelError = True CommonDialog1.Flags = cdlOFNHideReadOnly + cdlOFNOverwritePrompt CommonDialog1.Filter = "All Files (*.*)|*.*|Rich Text Files"&"(*.rtf)|*.rtf|Text Files(*.txt)|*.txt" CommonDialog1.FilterIndex = 2 CommonDialog1.ShowSave strNew = CommonDialog1.FileName RichTextBox1.SaveFile strNew ErrHandler: Exit Sub
