テキストファイルへの追加書き込み

解決

Nagasaki 2003-09-26 01:06:19 No: 108807

いつもいつもお世話になっております。

またまた疑問です。
テキストファイルに追加でデータを書き込みたいと思い探していると
AppendでOpenというのが在りました。
が、やり方がまったくわかりません。
内容は、
変数：GrpCode にサーバーから新規取得したコードを保存します。
これを、Grp.txt というテキストファイルに追加していきたいのです。
できれば改行して・・

たとえば、現在 C:\usr にGrp.txtが在ります。
その中に、10008825  という文字が保存されています。
ここに、追加で  10008826  という文字を保存したいのですが、
Grp.txt  を開いたら
10008825
10008826
という風に・・・
当然新規取得のたびに追加していく・・
というのは、どうすればいいでしょうか？
よろしくお願いします。

Take1 2003-09-26 01:37:34 No: 108808

こんな感じでいいとおもいます。

Dim MyFil As String
Dim intFileNo As Integer
MyFil = "C:\usr\Grp.txt"
intFileNo = FreeFile

If Dir$(MyFil) = "" Then
    Open MyFil For Output As #intFileNo
        Print #intFileNo, Text1.Text
    Close #intFileNo
Else
    Open MyFil For Append As #intFileNo
        Print #intFileNo, Text1.Text
    Close #intFileNo
End If

Nagasaki 2003-09-26 02:13:01 No: 108809

ありがとうございます。
この構文がよくわからないので調べて、覚えておきます。
OutputをAppendに変更すると、追加書き込みということですよね。
明日までに作ろうとしてたので助かりました。
また何かありましたら、よろしくお願いします。