Dim write As  IO.StreamWriter 
Try 
  write=New IO.StreamWriter(file)  
  write.write(txtEncryption.text)

Catch ex As Exception
  'Prompt error
  Console.WriteLine("Error {0}",ex.Message)

Finally 
    If write IsNot Nothing Then
        write.Close() 
    End If
End Try

假设（如果文件未在其他任何地方打开）：您打开了一个已经打开的流。请确保所有打开的流都已正确关闭。您也可以使用此语法

Using writer As StreamWriter = New StreamWriter(file)
        writer.Write("....")
           //and so on
End Using

将文件许可证变暗为新系统.IO.StreamWriter（“许可证已接受”，False）

'("Licenseaccepted", False)
    FileLic.WriteLine(lblLICaccept.Text)
    FileLic.WriteLine(AuthorYear)
    FileLic.WriteLine("Non cancellare o modificare questo file.")
    FileLic.Close()

这个解决方案在我工作正确。