已中止i/o操作 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，已中止I/O，大概会是什么原因呢

此主题相关图片如下：微信截图_20180711152626.png

代码：

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

路径不正确，或者路径中间的某一个目录不存在，或者文件被其它程序使用锁定，无法打开或者写入

在这段代码写入调试代码 output.log 记录时间和执行到的地方。报错之后，查找log，看看对应的执行到了哪里开始报错，对应的值是什么。

好的，谢谢两位老师！

路径不正确，或者路径中间的某一个目录不存在，或者文件被其它程序使用锁定，无法打开或者写入

如果是这样说的话，那可能是：文件被其它程序使用锁定，无法打开或者写入

前面的的两个没问题。

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)

请确定是 CopyFile 的错，还是 WriteAllText 的错，还是别的代码的错？

代码加入output.log记录各个操作的值和时间。

主题：已中止i/o操作