主题：[求助]急求txt文件批量导入方法

Dim dlg As new OpenFileDialog
dlg.Filter = "txt文件|*.txt"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each file As String In dlg.FileNames
        Dim txt As String = FileSys.ReadAllText(file, encoding.default)
        Dim ndr As DataRow = DataTables("表a").addnew
        ndr("第一列") = FileSys.GetName(file)
        ndr("第二列") = txt
    Next
End If