主题：[求助]如何批量导入txt文件，并批量刷新

Dim dlg As New FolderBrowserDialog

If dlg.ShowDialog = DialogResult.Ok Then

    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)

        dim s as string = s.Substring(s.LastIndexOf("\")+1,s.Length-s.LastIndexOf("\")-1).Split(".")(0)

        Dim ip as New Importer

       ip.SourcePath = "c:\Data\" '指定目录

       ip.SourceTableName = s '指定要导入的文件“订单.txt”

       ip.NewTableName =s '导入后的表名

      ip.Format = "Delimited" '指定导入格式

      ip.Import()

        

    Next

End If