For Each File As String In FileSys.GetFiles(ip.SourcePath) Dim ip As New Importer ip.SourcePath =e.Form.Controls("DropBox1").value ip.SourceTableName = file '指定要导入的文件"订单.DBF" ip.NewTableName = file '导入后的表名 ip.Format = "dbase" '指定导入格式 ip.Import() Next