以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]同一代码有的电脑可以正常执行,有的报错是什么原因  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140375)

--  作者:happy_gile
--  发布时间:2019/9/4 15:28:00
--  [求助]同一代码有的电脑可以正常执行,有的报错是什么原因
    Dim ex135 As New Exporter
    ex135.SourceTableName = "C135" \'指定导出表
    ex135.FilePath = "c:\\DATA\\" \'指定目标文件路径
    ex135.Format = "Delimited" \'导出格式为符号分割的文本文件
    ex135.NewTableName = "C135" \'指定文件名,注意无须扩展名
    ex135.Header = False
    ex135.Export() \'开始导出
    Dim str135 As String = filesys.readalltext("c:\\data\\C135.txt",encoding.default)
    str135 = str135.replace("""","")
    filesys.writealltext("c:\\data\\C135.txt",str135,False,encoding.default)
有的电脑可以正常执行,有的电脑报以下错误,系统都是WinXP


图片点击可在新窗口打开查看此主题相关图片如下:b41f0483db46446da476823882b7fc1320190904135660670.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2019/9/4 15:38:00
--  
这些电脑是不是不存在“c:\\data”这个文件夹?
--  作者:happy_gile
--  发布时间:2019/9/4 15:40:00
--  
存在
之前有一行代码
If FileSys.DirectoryExists("C:\\data") = False Then
    FileSys.CreateDirectory("C:\\data")
End If

--  作者:有点蓝
--  发布时间:2019/9/4 15:45:00
--  
调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm

看是那一句代码出错

--  作者:happy_gile
--  发布时间:2019/9/4 15:50:00
--  
要是代码出错了,应该所有电脑都报错呀
--  作者:有点蓝
--  发布时间:2019/9/4 16:19:00
--  
不要纠结这些东西,解决问题才是主要的