尝试创建用于在VBScript中写入的文件时获取权限被拒绝错误

Question

在尝试打开第二个文件进行写入时，我一直拒绝获得许可。我知道第一个文件打开正常，因为我可以把它写到屏幕上，我已经为用户设置了写权限。这是如此简单，以至于我被它蒙蔽了吗？

css_org = server.MapPath("style.css")
css_new = server.MapPath("new_style.css")           
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1 
Const ForWriting = 2        
Set objFile1 = fso.OpenTextFile (css_org, ForReading)
Set objFile2 = fso.OpenTextFile (css_new, ForWriting, True)  ' 500 error on this line

Answer 1

您的代码似乎是ASP，因此您需要向运行代码的用户（通常是运行IIS的服务帐户）授予写入权限，而不是登录Web应用程序的用户。

Answer 2

您是否尝试过编写代码之外的文件以查看用户上下文是否可以写入该文件？这可能不是您的代码的问题。如果您尝试使用记事本写入，则可能会收到更多信息性错误消息。此外，您可以尝试使用SysInternals的“Process Explorer” - 他们的“查找句柄”功能来测试该文件以查看是否有某些进程将其锁定。