尝试创建要在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的“进程资源管理器”-他们的“查找句柄”功能来测试该文件，以查看是否有某些进程将其锁定。