title: How to get a combined string from multiple files
body: <p>I have in folder multiple rtf files. I want to read all and convert them to a single string.</p>
  
  <p>I can open them one by one using following code.</p>
  
  <pre><code>Const ForReading = 1
  sFolder = "C:\Users\User\Desktop\PLR\"
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  For Each oFile In oFSO.GetFolder(sFolder).Files
    If LCase(oFSO.GetExtensionName(oFile.Name)) = "rtf" Then 
      set oFile = oFSO.OpenTextFile(oFile)
          Do While oFile.AtEndOfStream &lt;&gt; True
      TextLine = oFile.ReadAll
      Msgbox TextLine
      Loop
    End if
  Next
  Set oFSO = Nothing
  </code></pre>
  
  <p>Now I want to have final string from all files that contain all the files in the folder.</p>
  
  <p>Like
  Textall = Textline1+textline2...</p>
  
  <p>Is this possible?</p>