| 投稿日 | ： 2002/12/12(Thu) 00:58 |
| 投稿者 | ： A221 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: バイナリファイルについて |
> 元から存在しているファイルの最後にさらにデータを追加したいのですがその方法がわかりません。
OpenステートメントのAppendで実現できます。こんな感じで
Dim Fnum As Long
Dim DataStr As String
Fnum=FreeFile
DataStr="Test"
Open "c:\Test.Txt" For Append As #Fnun
Print #Fnum,DataStr
Close #Fnum