以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 已中止i/o操作 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121680) |
-- 作者:fubblyc -- 发布时间:2018/7/11 15:44:00 -- 已中止i/o操作 老师,已中止I/O,大概会是什么原因呢 代码: Dim wjm As String = Date.Today.year & Date.Today.Month & Date.Today.Day & Date.now.Hour & Date.now.Minute & Date.now.Second Dim wjlj As String = fl1 & "盘点\\" & wjm & ".txt" FileSys.CopyFile(fl1 & "wj\\pd.txt", wjlj ,True) FileSys.WriteAllText(wjlj , e.PostValues("txm"), True) Dim strs As String = FileSys.ReadAllText(wjlj,Encoding.Default) Dim h As String Dim m As String Dim kw As String Dim djbh As String strs = strs.Trim() Dim rs() As String = strs.Split("#") For i As Integer = 0 To rs.Length - 1 Dim cs() As String = rs(i).Split(",") If cs.Length = 6 Then Dim dr2 As DataRow = DataTables("盘点明细表导入").Addnew() dr2("首列") = cs(0) dr2("门店名称") = e.PostValues("username") dr2("姓名") = e.PostValues("dy") dr2("库位") = cs(1) dr2("条码") = cs(3) dr2("数量") = cs(4) dr2("扫码时间") = cs(5) dr2("盘点日期") = Date.Today dr2("上传时间") = Date.now End If Next |
-- 作者:有点蓝 -- 发布时间:2018/7/11 15:52:00 -- 路径不正确,或者路径中间的某一个目录不存在,或者文件被其它程序使用锁定,无法打开或者写入 |
-- 作者:有点甜 -- 发布时间:2018/7/11 16:25:00 -- 在这段代码写入调试代码 output.log 记录时间和执行到的地方。报错之后,查找log,看看对应的执行到了哪里开始报错,对应的值是什么。 |
-- 作者:fubblyc -- 发布时间:2018/7/11 17:06:00 -- 好的,谢谢两位老师! 路径不正确,或者路径中间的某一个目录不存在,或者文件被其它程序使用锁定,无法打开或者写入 如果是这样说的话,那可能是:文件被其它程序使用锁定,无法打开或者写入 前面的的两个没问题。 Dim wjm As String = Date.Today.year & Date.Today.Month & Date.Today.Day & Date.now.Hour & Date.now.Minute & Date.now.Second Dim wjlj As String = fl1 & "盘点\\" & wjm & ".txt" FileSys.CopyFile(fl1 & "wj\\pd.txt", wjlj ,True) //是不是在复制文件的时候,其他用户也在复制,被占用了呢。如果是这样,有什么解决办法吗? FileSys.WriteAllText(wjlj , e.PostValues("txm"), True) |
-- 作者:有点甜 -- 发布时间:2018/7/11 17:24:00 -- 请确定是 CopyFile 的错,还是 WriteAllText 的错,还是别的代码的错?
代码加入output.log记录各个操作的值和时间。 |