Dim dlg As New OpenFileDialog
dlg.Filter= "文本文件|*.txt"
If dlg.ShowDialog = DialogResult.Ok Then
Dim ip As New Importer
ip.SourcePath = FileSys.GetParentPath(dlg.FileName)
ip.SourceTableName = FileSys.GetName(dlg.FileName).replace(".txt", "")
ip.NewTableName ="公司存款"
ip.Format = "Delimited"
ip.Import()
End If