FreeFile Function
рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдирдХрд╛ рд▓рд╛рдЧрд┐ рдЕрд░реНрдХреЛ рдЙрдкрд▓рдмреНрдз рдлрд╛рдЗрд▓ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН ред рд╣рд╛рд▓реИ рдЦреЛрд▓реЗрдХреЛ рдлрд╛рдЗрд▓рд▓реЗ рдкрд╣рд┐рд▓реЗ рдиреИ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рд░рд╣реЗрдХреЛ рдлрд╛рдЗрд▓ рдирдореНрдмрд░рдХреЛ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрди рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
FreeFile
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдЗрдиреНрдЯрд┐рдЬрд░
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рдЦреБрд▓рд╛ рдХрдердирдорд╛ рдЕрдЧрд╛рдврд┐ рдкрдЯреНрдЯреА рддреБрд░реБрдиреНрддреИ рдорд╛рддреНрд░ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ ред рд╕реНрд╡рддрдиреНрддреНрд░ рдлрд╛рдЗрд▓рд▓реЗ рдЕрд░реНрдХреЛ рдЙрдкрд▓рдмреНрдз рдлрд╛рдЗрд▓ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ рддрд░ рдпрд╕рд▓рд╛рдИ рд╕рдЮреНрдЪрд┐рдд рдЧрд░реЗрд░ рд░рд╛рдЦреНрди рд╕рдХреНрджреИрди ред
рдЙрджрд╛рд╣рд░рдг:
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