, . , . FileFree, ( 1-511).
:
Open <__> [For <>] [Access <_>]
[<>] As [#] [Ln=<_>]
<__> - , ;
<> - :
Append
Binary
Input
Output
Random ;
<_> - :
Read
Write
Read Write ;
<> - :
Shared
Lock Read
Lock Write
Lock Read Write ;
- ;
<_> - , 32767
. (512
).
; . Binary, Input, Random , ; Append, Output .
19.27.
Open "FILE" For Input As #1 Open "FILE" For Binary Access Write As #1 Type Record Define userdefined type ID As Integer Name As String * 20 End Type Dim MyRecord As Record Open "FILE" For Random As #1 Len = Len(MyRecord) Open "FILE" For Output Shared As #1 Open "FILE" For Binary Access Read Lock Read As #1 | . Len ( ) , |