3

好的，自从我使用经典 asp 以来已经有一段时间了，所以我有点生疏了。这是我的问题。

我正在尝试使用 FSO 将文件写入文件系统。下面的代码非常简单。但是，该文件没有出现，也没有出现错误。我知道它正在运行代码，因为我可以在此代码段之前和之后添加 response.writes，它们都出现在输出中。但是，没有创建文件，也没有引发错误。我什至改变了它，所以这是一个强制错误的虚假路径。没有骰子。我添加了每个人对目录的读写权限。还是一样。

想法？

这是我的代码：

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

'Open the text file
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("d:\test.txt", True)

'Display the contents of the text file
objTextStream.WriteLine "howdy"

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

2 回答 2

6

代码不会产生错误消息的唯一可能原因是您的页面中有这个：

On Error Resume Next

这很糟糕，因为你刚刚看到的原因。它只是默默地忽略任何错误消息，让您不知道为什么它没有按预期工作。

（它应该只用于您预计会出现错误的代码的孤立部分，并在每次操作后实际检查错误情况。）

从您的页面中删除它，您可能收到的错误消息是参数对于此行的调用无效：

Set objTextStream = objFSO.OpenTextFile("d:\test.txt", True)

您忘记了第二个参数，即 I/O 模式。您应该使用值 1 来编写：

Set objTextStream = objFSO.OpenTextFile("d:\test.txt", 1, True)

或者，您可以改用该CreateTextFile方法：

Set objTextStream = objFSO.CreateTextFile("d:\test.txt", True)
于 2009-05-22T15:04:27.137 回答
4

尝试这个：

<%

if Append = true then
   iMode = 8
else 
   iMode = 2
end if
set oFs = server.createobject("Scripting.FileSystemObject")
set oTextFile = oFs.OpenTextFile("C:\wwwroot\Test.txt", iMode, True)
oTextFile.Write "Test Content"
oTextFile.Close
set oTextFile = nothing
set oFS = nothing

%>

我在本地尝试了这个，在我的目录上设置了权限并且它起作用了。

您可以从这里获取原始来源： http ://www.freevbcode.com/ShowCode.Asp?ID=89

于 2009-05-22T14:42:28.897 回答