如何样打开一个文件夹的所有文件,并从每个文件读取一行数据

怎么样打开一个文件夹的所有文件,并从每个文件读取一行数据
我想打开一个文件夹下的所有文本文件,然后读取一行数据到新文件中,直到读完文本文件所有数据

[解决办法]
可以参考一下：

VB.NET code

    Private Sub CreateNewFileFromFolder(ByVal dInfo As IO.DirectoryInfo)        Dim fInfo As IO.FileInfo        Dim reader As IO.StreamReader        Using writer As New IO.StreamWriter("fileName", False)            For Each fInfo In dInfo.GetFiles                If fInfo.Extension.ToLower = ".txt" Then                    reader = New IO.StreamReader(fInfo.FullName, True)                    writer.WriteLine(reader.ReadLine())                    reader.Close()                End If            Next            writer.Close()        End Using    End Sub
[解决办法]
晕死了,你就不会稍微改一下啊:
VB.NET code
Dim sourceDirectory$ = "d:\My Documents", outPutFileName$ = "d:\Combined.txt"For Each fn As String In My.Computer.FileSystem.GetFiles(sourceDirectory, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")    My.Computer.FileSystem.WriteAllText(outPutFileName, My.Computer.FileSystem.OpenTextFileReader(fn).ReadLine, True)Next