1

我试图简单地写入一个文本文件，以供以后使用从各个页面上的输入元素收集的数据。诚然，我可能错过了明显的，但我尝试过的变体，甚至我在许多示例中发现的一些示例代码，我总是得到同样的错误。

代码：

<%
  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)

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

4

0 回答 0