Question

vb.net如何打开选定文件夹下所有TXT文件，读取数据，写入数据，并保存数据至新的文件

用对话框型式选择文件夹，打开txt文件，读取数据，再写入新的txt文件。vb.net

Answer 1

 Using FolderBrowserDialog As New FolderBrowserDialog
            If FolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim 资料夹 As String() = System.IO.Directory.GetFiles(FolderBrowserDialog.SelectedPath, "*")
                For Each 文件 In 资料夹
                    MsgBox(My.Computer.FileSystem.ReadAllText(文件)) '读取数据
                    My.Computer.FileSystem.WriteAllText(文件, "数据", False) '写入数据
                Next
            End If
        End Using

追问

如何读取的文件数据按照每一行放到数组中，然后在按每一行保存到新建text文件中

追答

多小个问题呀...

        Using FolderBrowserDialog As New FolderBrowserDialog
            If FolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim 资料夹 As String() = System.IO.Directory.GetFiles(FolderBrowserDialog.SelectedPath, "*")
                For Each 文件 In 资料夹

                    Dim 数组() As String
                    For Each 行 As String In My.Computer.FileSystem.ReadAllText(文件).Split(vbNewLine)   '读取数据
                        数组(数组.Count + 1) = 行
                        My.Computer.FileSystem.WriteAllText(文件名, 行, False) ''写入数据
                    Next
                Next
            End If
        End Using