VBScript运行时错误'800a0034' - 错误的文件名或编号 - 尝试写入服务器端文本文件时

Question

我正在尝试简单地写入文本文件，以便以后使用从各个页面上的输入元素收集的数据。不可否认，我可能错过了显而易见的，但我尝试过的变化，甚至我在许多例子中找到的一些示例代码我总是得到同样的错误。

代码：

<%
  Dim currentDirectoryPath, outFile, objFSO, objTextStream

  Const fsoForWriting = 2

  'Get and assign current directory path
  currentDirectoryPath = Server.MapPath(".")

  'Assign file name to be used
  outFile = "\accdata.txt\"

  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  'Open the text file
  Set objTextStream = objFSO.OpenTextFile(currentDirectoryPath & outFile, fsoForWriting, True)

  'Write new line to text file
  objTextStream.WriteLine "output this as one line of text"

  'Close the file and clean up
  objTextStream.Close
  Set objTextStream = Nothing
  Set objFSO = Nothing
%>

结果：

Microsoft VBScript运行时错误“800a0034”

文件名或编号错误

/asp/accounting/datacollect.asp，第23行

（代码的第23行是：）

Set objTextStream = objFSO.OpenTextFile(currentDirectoryPath & outFile, fsoForWriting, True)

这远非我的第一语言，因此我没有大量的经验，所以任何帮助或建议将非常感激。