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

Please support us!