Member Avatar for ananth3125

hai , here in the below coding the files are merged , but the resulting format is stored as "encoded text" , i need the format to be ".doc" or ".rtf" files

Dim mydirpath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
       Dim txtlist As String() = Directory.GetFiles(mydirpath, "*.doc")
       Dim strfile As New StringBuilder
       Dim txtname As String
       For Each txtname In txtlist
           Using sr As New StreamReader(txtname)
               strfile.AppendLine(txtname.ToString())
               strfile.Append(sr.ReadToEnd())
               strfile.AppendLine()
           End Using
       Next
       Using outfile As New StreamWriter(mydirpath + "\output.doc")
           outfile.Write(strfile.ToString())
       End Using
  • 2 Contributors
  • 1 Reply
  • 102 Views
  • 8 Hours Discussion Span
  • Latest Post Latest Post by G_Waddell
Member Avatar for G_Waddell

Hi
You will need to use office automation or the likes, it is not as simple as as text file where you append lines of plain unformatted text.

You may have to create a new blank word doc and populate it with the source of the other two.

Try starting here: http://support.microsoft.com/kb/316383

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.