向文本文件添加新行时出现的问题

Question

我正在尝试将新记录添加到我的控制台应用程序内的文件夹中的文本文件中。

open System.IO
let name = "Fred Thompson" 
let addLine (name: string) =
    use wr = StreamWriter("c:\tempsource\test.txt")
    wr.WriteLine(name)
    wr.Close

当我在交互窗口中运行时，我得到这个:警告FS0760:建议使用语法'new Type(args)'创建支持IDisposable接口的对象，而不是'Type(args)'或'Type'作为表示构造函数的函数值，以指示资源可能由生成的值拥有。

另外，在文件下面得到一条蓝色的弯曲线——在本例中我将其缩短了。这条蓝色的线也是完整的路径。

查找这个警告给了我这个更新警告信息，当创建没有'new'的IDisposable时，我没有线索必须接近这个。

谢谢

Answer 1

StreamWriter构造函数只接受一个路径，创建一个覆盖文件的流。通过true允许追加:

open System.IO
let name = "Fred Thompson" 
let addLine (name: string) =
    use wr = new StreamWriter("c:\tempsource\test.txt", true)
    wr.WriteLine name
addLine name