read and write document using stream reader and stream writer

See more:

VB

Hi, I can using streamreader to read a all doc files in My document folder and write all file content in a single doc file(output.doc). I using below coding. But it may read doc file content in encoded format. It dont not paste doc file.

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