如何从多个文件中获取组合字符串

Question

我在文件夹中有多个rtf文件。我想读取所有内容并将它们转换为单个字符串。

我可以使用以下代码逐个打开它们。

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 <> True
    TextLine = oFile.ReadAll
    Msgbox TextLine
    Loop
  End if
Next
Set oFSO = Nothing

现在我想要包含文件夹中所有文件的所有文件的最终字符串。

像 Textall = Textline1 + textline2 ...

这可能吗？

Answer 1

当您阅读所有行时，您可以将它们连接起来，而不是

TextLine = oFile.ReadAll

你可以使用

TextLine = TextLine & oFile.ReadAll