打开TXT文件出现Automation错误

[skyzj]

Dim backpath As String
backpath = App.path
If Right(backpath, 1) <> "\" Then backpath = backpath + "\"
backpath = backpath + "err.txt"

Dim fso As New Scripting.FileSystemObject

Dim ts As TextStream

Set ts = fso.OpenTextFile(backpath, ForAppending, True)
执行到上面这句时出现 “Automation错误”
某些电脑正常，某些电脑会这样。

是什么原因？

[of123]

从来不用这种东东。打开 .txt 文件直接用 Open 语句很方便的。

[Tiger_Zhao]

大多数是权限问题。
用管理员权限运行程序可以临时解决。
最根本的是不要在程序目录读写数据，应该到 Environ$("APPDATA") 或 Environ$("ALLUSERSPROFILE") 下的约定子目录中存放数据。