FreeFile Function

рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдирдХрд╛ рд▓рд╛рдЧрд┐ рдЕрд░реНрдХреЛ рдЙрдкрд▓рдмреНрдз рдлрд╛рдЗрд▓ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН ред рд╣рд╛рд▓реИ рдЦреЛрд▓реЗрдХреЛ рдлрд╛рдЗрд▓рд▓реЗ рдкрд╣рд┐рд▓реЗ рдиреИ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рд░рд╣реЗрдХреЛ рдлрд╛рдЗрд▓ рдирдореНрдмрд░рдХреЛ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрди рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:

FreeFile

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдЗрдиреНрдЯрд┐рдЬрд░

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рдЦреБрд▓рд╛ рдХрдердирдорд╛ рдЕрдЧрд╛рдврд┐ рдкрдЯреНрдЯреА рддреБрд░реБрдиреНрддреИ рдорд╛рддреНрд░ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ ред рд╕реНрд╡рддрдиреНрддреНрд░ рдлрд╛рдЗрд▓рд▓реЗ рдЕрд░реНрдХреЛ рдЙрдкрд▓рдмреНрдз рдлрд╛рдЗрд▓ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ рддрд░ рдпрд╕рд▓рд╛рдИ рд╕рдЮреНрдЪрд┐рдд рдЧрд░реЗрд░ рд░рд╛рдЦреНрди рд╕рдХреНрджреИрди ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

67 рдирд┐рдХреИ рдзреЗрд░реИ рдлрд╛рдЗрд▓рд╣рд░реВ

рдЙрджрд╛рд╣рд░рдг:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg As String

    aFile = "c:\data.txt"

    sMsg = ""

    iNumber = Freefile

    Open aFile For Output As #iNumber

    #iNumber рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН, "First line of text"

    #iNumber рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН, "Another line of text"

    Close #iNumber

    iNumber = Freefile

    Open aFile For Input As #iNumber

    While Not eof(#iNumber)

        Line Input #iNumber, sLine

        If sLine <>"" Then

            sMsg = sMsg & sLine & chr(13)

        End If

    Wend

    Close #iNumber

    MsgBox sMsg

End Sub