换个昵称 64位版有这问题，32位版无问题。

木木小武 我刚试了32位 追加写入也是有问题，直接覆盖了

Function 文本追加字符串(路径,内容,文本格式)
    If false=File.FileExists(路径)
        File.Create(路径)
    End If
    dim 读取的内容 = File.Read(路径,文本格式)
    File.WriteFile(路径,读取的内容&内容,文本格式)
End Function