05vbu03

Project! - Microsoft Visual Basic [design]

File Edit View insert Run Jools Add-lns Help

Ą

&

y

W

w

►

II

■

CTe

Ci

ś~~^! 1080,1170

i-* il.J 6810 x

SI FileClass

Proc:

Objęci:

(General)

AmOpen = False Case ACCESSJJRITE

On Error GoTo FileOpenError

Open FileName For Append Access Write As 1    AmOpen = True

FileOpen = FileNumber On Error GoTo 0 Exit Function]

Case ACCESS_READWRITE

duirrmy = Assert (False, _

"FileObject.FileOpen: " & _

mm

Start | jjgy Projectl • Microsoft Visual... | [Tl Forml

"ReadWrite Access specified for Append e AmOpen = False Case Elsę