古典的なASPでファイルを書き込むことができません

StackOverflow https://stackoverflow.com/questions/898188

  •  23-08-2019
  •  | 
  •  

質問

私は、従来のASPで働いてきたので、

[OK]を、それはしばらくしているので、私は少しさびです。ここに私の質問です。

私は、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
役に立ちましたか？

解決

これを試してください：

<%

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

他のヒント

のコードは、エラーメッセージを生成しないことを唯一の可能な理由は、あなたがあなたのページでこれを持っているということです 

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)
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top