Visual Basic

Dim exts As String() = SaveFileDialog1.Filter.Split("|")

exts(SaveFileDialog1.FilterIndex * 2 - 1)

 #Region "Save File"
    Private Sub SaveFile(ByVal SaveAs As Boolean)
        Dim strExt As String
        'If the currentFile already has an ext get it and change it to UpperCase
        strExt = System.IO.Path.GetExtension(currentFile).ToUpper()

        'Place it in the SFD.Filter
        Select Case strExt
            Case ".RTF"
                SFD.FilterIndex = 1
            Case ".TXT"
                SFD.FilterIndex = 2
            Case ".DOC"
                SFD.FilterIndex = 3
            Case ".HTML"
                SFD.FilterIndex = 4
            Case Else
                SFD.FilterIndex = 5
        End Select

        If SaveAs Then
            SFD.Title = "QuickWord - SaveAs File"
            SFD.DefaultExt = "rtf"
            SFD.Filter = "Rich Text Files|*.rtf|Text Files|*.txt|WORD Files|*.doc|HTML Files|*.html|All Files|*.*"
            SFD.FileName = currentFile
            If SFD.ShowDialog() = Windows.Forms.DialogResult.Cancel Then Exit Sub
            If SFD.FileName = "" Then Exit Sub
            currentFile = SFD.FileName
            Dim exts As String() = SFD.Filter.Split("|")
            strExt = exts(SFD.FilterIndex * 2 - 1)
            Dim charsToTrim As Char() = {"*"}
            Dim trimmedPath As String = strExt.TrimStart(charsToTrim)
            strExt = trimmedPath
            strExt = strExt.ToUpper()
        End If

        Select Case strExt
            Case ".RTF"
                rtbText.SaveFile(currentFile, RichTextBoxStreamType.RichText)
            Case ".DOC"
                ' Copy the contents of the Richtextbox to the clipboard and keep it's formating
                Clipboard.SetText(rtbText.Rtf, TextDataFormat.Rtf)
                objWord = CreateObject("Word.Application")
                objTempDoc = objWord.Documents.Add
                With objTempDoc
                    .Content.Paste()
                    .SaveAs(currentFile)
                End With
                objTempDoc.close()
                objWord.Quit()
            Case Else
                Dim txtWriter As System.IO.StreamWriter
                txtWriter = New System.IO.StreamWriter(currentFile)
                txtWriter.Write(rtbText.Text)
                txtWriter.Close()
                txtWriter = Nothing
                rtbText.SelectionStart = 0
                rtbText.SelectionLength = 0
        End Select
        rtbText.Modified = False
        Me.Text = "QuickWord: " & currentFile.ToString()
    End Sub

#End Region

Cmania wrote:

Microsoft DAO 3.6 object library.