怎样用VB按顺序读取指定文件夹里面的文本文件内容

'首先定义一个变量来保存所有文本文件中的内容
Dim str: str = ""
'再定义一个变量来保存当前路径
Dim CurPath As String
CurPath = App.Path '这里得到的就是当前路径

'循环所有的文件名，从1到100，这里的100是文件夹中最大的文件
For i = 1 To 100
'打开第i个文件
Open CurPath & "/" & i & ".txt" For Input As #1
Do While Not EOF(1)
Input #1, b
str = str & b & vbNewLine ‘读取txt每一行中的内容，并将内容放到变量str中，并加上换行符
Loop
Close #1 ‘关闭
Next ’这里循环读出所有的文件内容

‘创建打开文件名为“保存后的文件.txt”的文件，如果不存在则创建名为“保存后的文件.txt”的txt文件。
Open CurPath & "/" & "保存后的文件.txt" For Output As #1
Print #1, str '把str中的内容写入
Close #1 ‘关闭