TextSeek ( FileId 〔, Point〕 )
値 | 意味 |
---|---|
ToBegin | ファイルの先頭に移動します。 |
ToEnd | ファイルの最後に移動します。 |
' 実行フォルダ下のテキストファイル"Readme.txt"の
' 最後に"** END OF FILE **"と書き込む。
Dim file1
file1 = TextOpen ( _BIN_+"Readme.txt" ,ReadWrite )
If file1 = 0 Then
MessageBox ( _BIN_+"Readme.txtのオープンに失敗" ,OK )
Else
If TextSeek ( file1 ,ToEnd ) Then
TextWrite ( file1 ,"** END OF FILE **" ,False )
End
TextClose ( file1 )
End