FreeFile Function

αžαŸ’αžšαž‘αž”αŸ‹β€‹αž›αŸαžβ€‹αž―αž€αžŸαžΆαžšβ€‹αžŠαŸ‚αž›β€‹αž˜αžΆαž“β€‹αž”αž“αŸ’αž‘αžΆαž”αŸ‹ αžŸαž˜αŸ’αžšαžΆαž”αŸ‹β€‹αž”αžΎαž€β€‹αž―αž€αžŸαžΆαžšβ€‹αž˜αž½αž™Β αŸ” αž”αŸ’αžšαžΎβ€‹αž’αž“αž»αž‚αž˜αž“αŸβ€‹αž“αŸαŸ‡β€‹αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž”αžΎαž€β€‹αž―αž€αžŸαžΆαžšβ€‹αž˜αž½αž™β€‹αžŠαŸ„αž™β€‹αž”αŸ’αžšαžΎβ€‹αž›αŸαžβ€‹αž―αž€αžŸαžΆαžš αžŠαŸ‚αž›β€‹αž˜αž·αž“β€‹αž‘αžΆαž“αŸ‹β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αŸ’αžšαžΎβ€‹αžŠαŸ„αž™β€‹αž―αž€αžŸαžΆαžšβ€‹αžŠαŸ‚αž›β€‹αž”αžΎαž€β€‹αž”αž…αŸ’αž…αž»αž”αŸ’αž”αž“αŸ’αž“Β αŸ”

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–


FreeFile

αžαž˜αŸ’αž›αŸƒβ€‹αžαŸ’αžšαž‘αž”αŸ‹ αŸ–

αž…αŸ†αž“αž½αž“β€‹αž‚αžαŸ‹

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

αž’αž“αž»αž‚αž˜αž“αŸβ€‹αž“αŸαŸ‡β€‹αž’αžΆαž…β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αŸ’αžšαžΎβ€‹αž—αŸ’αž›αžΆαž˜αŸ— αžαŸ‚β€‹αž–αžΈβ€‹αž˜αž»αžβ€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ Open αž”αŸ‰αž»αžŽαŸ’αžŽαŸ„αŸ‡β€‹Β αŸ” FreeFile αžαŸ’αžšαž‘αž”αŸ‹β€‹αž›αŸαžβ€‹αž―αž€αžŸαžΆαžšβ€‹αžŠαŸ‚αž›β€‹αž˜αžΆαž“β€‹αž”αž“αŸ’αž‘αžΆαž”αŸ‹ αž”αŸ‰αž»αž“αŸ’αžαŸ‚β€‹αž˜αž·αž“β€‹αž”αž˜αŸ’αžšαž»αž„β€‹αž‘αž»αž€β€‹αžœαžΆβ€‹αž‘αŸΒ αŸ”

Error codes:

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
    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!