主题：合并文本文件

不支持含有 .  字符文件的合并。改一下代码

Dim dlg As New OpenFileDialog
dlg.Filter= "文本文件|*.txt"
If dlg.ShowDialog = DialogResult.Ok Then
    Dim f As Io.FileInfo = FileSys.GetFileInfo(dlg.FileName)
    Dim mg As New Merger
    mg.SourcePath = f.DirectoryName & "\"
    mg.Format = "Delimited"
    Dim fname As String = f.Name.Replace(".txt","")
    If fname.IndexOf(".") >= 0 Then
        fname = fname.replace(".", "")
       
        FileSys.CopyFile(dlg.FileName, mg.SourcePath & fname & ".txt", True)
    End If
    mg.SourceTableName = fname
    mg.Header= True
    mg.DataTableName = "库位调整信息导入"
    mg.Merge() '开始合并
    If f.Name.Replace(".txt","").IndexOf(".") >= 0 Then FileSys.DeleteFile(mg.SourcePath & fname & ".txt", 2 ,2)
End If

方法一：你用代码添加；

方法二：你用代码读取txt合并数据 http://www.foxtable.com/webhelp/scr/2629.htm

Dim   cs() As  String =   rs(i).Split(vbtab)

改成

Dim   cs() As  String =   rs(i).Split(",")