主题：合并文本文件

 合并文本文件出现如下错误：

此主题相关图片如下：1111.jpg

代码如下：在弹出4之后出错。 

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