ロータス：私はあなたのすべては私たちが</p> <pre><code>MsgBox "User has already entered into the application" </code></pre> <p>を使用しようとしている。しかし、このメッセージは私がTXTにそれを書かなければならない任意のメッセージを印刷するには蓮に知っているようにファイル

Question

へのMsgBoxメッセージを書き込むことができないのです私はMsgboxの代わりにこのコードを使用しています。

Dim file As Integer 
fileN% = Freefile() 
Open "D:\sand_p\enter.txt" For Output As fileN% 
Print #fileN%, "User has already entered into the application" 
Close fileN% 

まだコードはメッセージをファイルに書き込んでいません。 テキストファイルに何かが存在する場合にデータを追加し、メッセージをファイルに書き込むように、上記のコードを修正する手助けがありますか？

Answer 1

ドミノデザイナーからOpen文の構文は助ける：{ランダムのために

オープンfileNameに

[|入力|出力|追加|バイナリ}]

[アクセス{読み取り{読み取り書き込み|書き込み}]

[{共有|ロックを読む|ロック読み取り書き込み| [＃]ファイル番号

[レン= RECLEN]

[文字セット= MIMECharsetName]

具体的には、appendコマンド

指定するように、ロックライト}]

現在のファイルの終わりから始まる順次出力モード。モードがアクセスタイプと競合すると、LotusScriptはエラーを生成します。たとえば、読み取りアクセスでAppendモードでファイルを開くことはできません。あなたは、ファイルの末尾以外のファイルの位置に移動する声明を求める印刷＃と＃ステートメントは、ファイルを開いて、テキストを追加することを意味し、ファイル

の末尾にテキストを追加書きを使用しない限り、整数として= Freefile（）

オープン "D：\ sand_p \ enter.txt"

fileNの％

薄暗いファイル：のために追加 fileNとしてのそれの最後にような何かを行います％

印刷＃fileN％、「ユーザーはすでにアプリケーションを締結している」

閉じるfileNの％

ただ、これは、クライアント上で実行されている場合、各クライアントは、Dを持たなければならないことに注意してください： \ sand_pフォルダにあり、書き込みアクセス権があることを確認します。

Answer 2

正しい構文は次のとおりです。

Open "D:\sand_p\enter.txt" For Output As #fileN% 

とサイモンはあなたが出力のために開いている場合、それは既存のファイルを削除し、新しいものを作成し、示唆したように。追加する構文は次のとおりです。

Open "D:\sand_p\enter.txt" For Append As #fileN%