Вопрос о создании файла протокола

[M@SKIT]

Только не ругайтесь пожалуйста!!! Сразу говорю искал!!!

Появилось время занятся VB. Сразу полез тренироваться с файлами. Немного не могу понять с записью в файл .

Наткнулся на такой листинг: "Использование файла с последовательным доступом для создания файла протокола"

Код: Выделить всё

Sub LogPrint(sMessage As String)
    Dim NFile As Integer
    NFile = FreeFile
    Open App.Path & "ErrorLog.TXT" For Append Shared As #NFile
    Print #NFile, Format$(Now, "mm-dd hh:mm:ss") & " - " & sMessage
    Close #NFile
End Sub

Внимание! Вопрос: Что такое FreeFile и зачем оно присваивается Nfile? Что такое вообще Shared.

Далее, что определяет #Номер_файла в операторе Print# или Write#. А то в книге не черта не написано.

Подскажите пожалуйста!

[GSerg]

Выброси эту книгу и купи нормальную. А то таким путём можно прийти к вопросам "Что делает оператор +".

[uhm]

Ты можешь писать в разные файлы, для этого и нужна переменная NFile - она определяет, в какой из открытых тобой файлов ты хочешь сделать запись. FreeFile - функция, которая возвращает свободный номер для файла. Shared - неэксклюзивный доступ к файлу.

[uhm]

ЗЫ А вообще, GSerg прав. Читай хелп

[shady]

я обычно вот так делаю:

Код: Выделить всё

    ' Открываем файл для последовательного чтения
    Open App.Path & "\sett.ini" For Input As #1
        nalp = Input(16, #1)
      ' Закрываем файл перед тем, как открыть его снова другим методом
    Close #1

    ' Открываем файл для последовательной записи.
    Open App.Path & "\sett.ini" For Output As #1
        Print #1, "123"
    ' Закрываем файл перед тем, как открыть его снова другим методом
    Close #1


[shady]

Далее, что определяет #Номер_файла в операторе Print# или Write#. А то в книге не черта не написано.

Подскажите пожалуйста!

#Номер_файла можно открыть сразу несколько файлов #1 #2...
и соответственно в какой именно файл записывать..

[M@SKIT]

О! Спасибо за разъяснения! А про Shared можно поподробнее!

[Konst_One]

shared - по-русски разделяемый, т.е. возможен множественный доступ (из разных процессов/программ)

[M@SKIT]

А-а-а! Ясненько!!!