FreeFile Function

āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ āĻ–ā§‹āϞāĻžāϰ āϜāĻ¨ā§āϝ āĻĒāϰāĻŦāĻ°ā§āϤ⧀āϤ⧇ āωāĻĒāĻ¸ā§āĻĨāĻŋāϤ āĻĢāĻžāχāϞ āϏāĻ‚āĻ–ā§āϝāĻž āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇āĨ¤ āĻŦāĻ°ā§āϤāĻŽāĻžāύ⧇ āĻ–ā§‹āϞāĻž āĻĢāĻžāχāϞ āĻĻā§āĻŦāĻžāϰāĻž āχāϤ⧋āĻŽāĻ§ā§āϝ⧇āχ āĻŦā§āϝāĻŦāĻšā§ƒāϤ āύ⧟ āĻāĻŽāύ āĻĢāĻžāχāϞ āϏāĻ‚āĻ–ā§āϝāĻž āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰ⧇ āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ āĻ–ā§‹āϞāĻžāϰ āϜāĻ¨ā§āϝ āĻāχ āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰāĻž āĻšā§ŸāĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:

FreeFile

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

Integer

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

āĻāχ āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āϤāĻžā§Žâ€āĻ•ā§āώāĻŖāĻŋāĻ•āĻ­āĻžāĻŦ⧇ āĻļ⧁āϧ⧁āĻŽāĻžāĻ¤ā§āϰ āĻāĻ•āϟāĻŋ āĻ“āĻĒ⧇āύ āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āϏāĻžāĻŽāύ⧇ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰāĻž āϝāĻžāĻŦ⧇āĨ¤ FreeFile āĻĒāϰāĻŦāĻ°ā§āϤ⧀ āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āĻĢāĻžāχāϞ āϏāĻ‚āĻ–ā§āϝāĻž āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇, āĻ•āĻŋāĻ¨ā§āϤ⧁ āĻāϟāĻŋ āϏāĻ‚āϰāĻ•ā§āώāĻŖ āĻ•āϰ⧇āύāĻžāĨ¤

Error codes:

5 Invalid procedure call

67 Too many files

āωāĻĻāĻžāĻšāϰāĻŖ:

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

    Print #iNumber, "First line of text"

    Print #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