主题：一段批量导入的代码，但是路径总是提示不对

Dim ip As New Importer
'Dim DirPath=e.Form.Controls("DropBox1").value
ip.SourcePath =e.Form.Controls("DropBox1").value

For Each File As String In FileSys.GetFiles(ip.SourcePath)
    ip.SourceTableName = file  '指定要导入的文件"订单.DBF"
    ip.NewTableName = file '导入后的表名
    ip.Format = "dbase" '指定导入格式
    If DataTables.Contains(file) '如果存在统计表1
        DataTables.Delete(file)
    End If
    ip.Import()
Next

真正解决问题还得靠你自己，我只是修改了代码中明显错误之处。

现在还不明白DropBox中的值是什么？为何还要用遍历？