无法将文本附加到文本文件 | 无法将文本附加到文本文件

本文介绍了无法将文本附加到文本文件的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

你好

有人可以帮助我吗?

私有子btnOk_Click(ByVal发送者为System.Object，ByVal e为System.EventArgs)处理btnOk.Click
    Me.SaveData(测试")
  结束子

  私有子SaveData(ByVal strStuInfo作为字符串)
    Me.chkExistFile()
'创建文件后，代码始终附加以下错误
    _strWrite = File.AppendText(_path)
    _strWrite.WriteLine(EncryptText(strStuInfo，_password))
    _strWrite.Flush()
    _strWrite.Close()
  结束子

  私人子chkExistFile()
    如果File.Exists(_path)然后
    别的
      File.Create(_path)
    万一
  结束

当文件不存在时，它将创建一个文本，然后在其上附加一个文本->那么它总是出错(该进程无法访问文件'C:\ Users \ Administrator \ Desktop \ W-LTS \ bin \ Debug \ Student.txt'，因为它正在被另一个进程使用.)所以我该怎么办? /p>

但如果存在，我可以追加文本，则可以正常工作.

plz帮助

谢谢

解决方案

Hello

can anyone help me?

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
    Me.SaveData("testing")
  End Sub

  Private Sub SaveData(ByVal strStuInfo As String)
    Me.chkExistFile()
'the code append below alway error after create file
    _strWrite = File.AppendText(_path)
    _strWrite.WriteLine(EncryptText(strStuInfo, _password))
    _strWrite.Flush()
    _strWrite.Close()
  End Sub

  Private Sub chkExistFile()
    If File.Exists(_path) Then
    Else
      File.Create(_path)
    End If
  End Sub

when the file is not exists it will create than append a text to it -> then it always error( The process cannot access the file 'C:\Users\Administrator\Desktop\W-LTS\bin\Debug\Student.txt' because it is being used by another process.) so how can i do?

but if the exists i can append text, it works properly.

plz help

thank

解决方案

这篇关于无法将文本附加到文本文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！