[SeregaKr]

Originally Posted by AlexSVC

Так выдает ошибку
Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,cAppend,cUnicod)
FileClose (c1,)
End Sub

Так ок
Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,,cUnicod)
FileClose (c1,)
End Sub

и так тоже нормально

Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,cAppend,)
FileClose (c1,)
End Sub

В чем прикол ? 6.5 - тоже самое....

Syntax: FileOpen (Connection Name, File Name, cRead | cWrite | cRandom [,cAppend [,cASCII])