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