[求助]批量合并文本-运行错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each File As String In Filesys.GetFiles(projectpath & "下载数据")
    If File.EndsWith(".txt") '如果后缀名是mdb,说明此文件是access格式
        FileSys.WriteAllText(file, FileSys.ReadAllText(file,encoding.default).Replace("None", 0), False, encoding.default)
        Dim mg As New Merger
        mg.Format = "Delimited" '指定格式为文本格式
        mg.SourcePath = FileSys.GetParentPath(file) '指定要合并的数据文件,含路径
        mg.SourceTableName = FileSys.GetName(file).SubString(0,6) '指定要合并的文件,无需扩展名
        mg.DataTableName = "历史数据" '指定接收合并数据的数据表的名称
        mg.Merge()
        'Filesys.DeleteFile(File) '合并后删除文件
    End If
Next

主题：[求助]批量合并文本-运行错误