WIN8,64位，调试代码时输出了很多内容到日志文件，比较密集。

FileSys.WriteAllText("c:\\11.txt","调试内容", true)

然后就出错了：

此主题相关图片如下：qq截图20160425111829.png

另一台电脑WIN7,64位，同样的代码不出错。

两台电脑版本均为：  2014-11-11

顺便问下目前最新的版本，版本号在主界面有地方看了吗？谢谢

加上try Cacth看看

http://www.foxtable.com/help/topics/2070.htm

谢谢，已明确是 WriteAllText 出的错，

但用try 只能跳过错误，还是不明白怎么纠错

谢谢，

望指点。

Try
   代码一
Catch ex As Exception
   出错执行代码二
End Try
不出错执行后续代码三

函数debugLog 里面，没有互锁的逻辑，就是WriteAllText  追加写入

是不是WriteAllText 处理多个写入任务时出错了？要重新安装或注册什么控件吗？谢谢。

 如果报错，就是这个时候.txt文本正在被别的程序打开和使用中。

 你可以弄一个循环，不断尝试写入即可，如代码

试了。可以确定问题如下：

1.WriteAllText 用命令测试时，循环写入没问题，比如写入abcd

2.WriteAllText 用在程序中写文件文件时，即便写入abcd，也要出问题。

3.在WIN8 64位出错，在另一台WIN7 64位不出错，在另一台WIN7 32位也不出错

4.不知道怎么处理了。幸好在客户那没出岁暮。

测试代码：

Vars("P_strLogFile") = "C:\\FoxtableDebug日志.txt"
\'写入C盘不报错，但没有新文件出来。
Vars("P_strLogFile") = "d:\\FoxtableDebug日志.txt"

msgbox("ok")

 那试试这样

Do While True
    try
        Dim path As String = "d:\\test.txt"
        If Not io.File.Exists(path) Then
            Dim myfile As New IO.FileInfo(path)
            Dim fs As IO.FileStream = myfile.Create()
            fs.Close()
        End If
        Dim sw = io.File.AppendText(path)
        sw.WriteLine("12345678")
        sw.Flush()
        sw.Close()
       
        Exit Do
    catch ex As exception
        msgbox(ex.message)
    End try
Loop