シーケンシャルファイル処理サンプルプログラム

Set Acad = CreateObject("AcadRemocon.Body")

'■ファイルを新規作成モードで開く
f = Acad.fsOpenWrite("C:\Tmp.txt") '正常なら1以上のファイル番号を返す
Acad.fsWriteLine f, "ABC"
Acad.fsClose

'■ファイルを追記モードで開く
f = Acad.fsOpenAppend("C:\Tmp.txt")
Acad.fsWriteLine f, "EFG"
Acad.fsClose

'■ファイルを読み取りモードで開く
f = Acad.fsOpenRead("C:\Tmp.txt")
Do Until Acad.fsEOF(f) 'ファイル終端までループ
StrRead = StrRead & Acad.fsReadLine(f) & vbCrLf
Loop
Acad.fsClose

'■ファイル内容表示
MsgBox StrRead