Open Statement

αž”αžΎαž€β€‹αžœαž·αžαžΈβ€‹αž‘αž·αž“αŸ’αž“αž“αŸαž™β€‹αž˜αž½αž™β€‹Β αŸ”β€‹

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


Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]

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

FileName: Name and path of the file to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does not exist (Access = Write), a new file is created.

Mode αŸ– αž–αžΆαž€αŸ’αž™β€‹αž‚αž“αŸ’αž›αžΉαŸ‡β€‹αžŠαŸ‚αž›β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹β€‹β€‹β€‹αžšαž”αŸ€αž”β€‹αž―αž€αžŸαžΆαžšΒ αŸ” αžαž˜αŸ’αž›αŸƒβ€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ αŸ– Append (αž”αž“αŸ’αžαŸ‚αž˜β€‹αžαžΆαž„β€‹αž…αž»αž„β€‹αž‘αŸ…β€‹αž―αž€αžŸαžΆαžšβ€‹αžβ€‹αž‚αŸ’αž“αžΆ) Binary (αž‘αž·αž“αŸ’αž“αž“αŸαž™β€‹αž’αžΆαž…β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž…αžΌαž›β€‹αžŠαŸ†αžŽαžΎαžšαž€αžΆαžšβ€‹αž‡αžΆβ€‹αž”αŸƒβ€‹αžŠαŸ„αž™β€‹αž”αŸ’αžšαžΎ Get αž“αž·αž„ Put) Input (αž”αžΎαž€β€‹αž”αŸ‰αž»αžŸαŸ’αžαž·αŸβ€‹αž‘αž·αž“αŸ’αž“αž“αŸαž™β€‹αžŸαž˜αŸ’αžšαžΆαž”αŸ‹β€‹αž’αžΆαž“) Output (αž”αžΎαž€β€‹αž”αŸ‰αž»αžŸαŸ’αžŠαž·αŸβ€‹αž‘αž·αž“αŸ’αž“αž“αŸαž™β€‹αžŸαž˜αŸ’αžšαžΆαž”αŸ‹β€‹αžŸαžšαžŸαŸαžš) αž“αž·αž„ Random (αž€αŸ‚β€‹αžŸαž˜αŸ’αžšαž½αž›β€‹αž―αž€αžŸαžΆαžšβ€‹αž”αŸ’αžšαŸ‚αž”αŸ’αžšαž½αž›)Β αŸ”

IOModeΒ αŸ– αž–αžΆαž€αŸ’αž™β€‹αž‚αž“αŸ’αž›αžΉαŸ‡β€‹αžŠαŸ‚αž›β€‹αž€αŸ†αžŽαžαŸ‹β€‹αž”αŸ’αžšαž—αŸαž‘β€‹αž…αžΌαž›β€‹αžŠαŸ†αžŽαžΎαžšαž€αžΆαžšΒ αŸ” αžαž˜αŸ’αž›αŸƒβ€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœΒ αŸ– Read (αž”αžΆαž“β€‹αžαŸ‚β€‹αž’αžΆαž“), Write (αž”αžΆαž“β€‹αžαŸ‚β€‹αžŸαžšαžŸαŸαžš), Read Write (αž‘αžΆαŸ†αž„αž–αžΈαžš)Β αŸ”

Protected αŸ– αž–αžΆαž€αŸ’αž™β€‹αž‚αž“αŸ’αž›αžΉαŸ‡β€‹αžŠαŸ‚αž›β€‹αž€αŸ†αžŽαžαŸ‹β€‹αžŸαŸ’αžαžΆαž“αž—αžΆαž–β€‹αžŸαž»αžœαžαŸ’αžαž·αž—αžΆαž–β€‹αž“αŸƒβ€‹αž―αž€αžŸαžΆαžšβ€‹αž”αž“αŸ’αž‘αžΆαž”αŸ‹β€‹αž–αžΈβ€‹αž”αžΎαž€Β αŸ” αžαž˜αŸ’αž›αŸƒβ€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ αŸ– Shared (αž―αž€αžŸαžΆαžšβ€‹αž’αžΆαž…β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αžΎαž€β€‹αžŠαŸ„αž™β€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈβ€‹αž•αŸ’αžŸαŸαž„β€‹αž‘αŸ€αž) Lock Read (αž―αž€αžŸαžΆαžšβ€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž€αžΆαžšαž–αžΆαžšβ€‹αž‘αž›αŸ‹β€‹αž“αžΉαž„β€‹αž€αžΆαžšβ€‹αž’αžΆαž“) Lock Write (αž―αž€αžŸαžΆαžšβ€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž€αžΆαžšαž–αžΆαžšβ€‹αž‘αž›αŸ‹β€‹αž“αžΉαž„β€‹αž€αžΆαžšβ€‹αžŸαžšαžŸαŸαžš) Lock Read Write (αž”αžŠαž·αžŸαŸαž’β€‹αž€αžΆαžšβ€‹αž…αžΌαž›β€‹αžŠαŸ†αžŽαžΎαžšαž€αžΆαžšβ€‹αž―αž€αžŸαžΆαžš)Β αŸ”

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

αž”αŸ’αžšαžœαŸ‚αž„β€‹αžŸαŸ†αžŽαž»αŸ†β€‹αž‘αž·αž“αŸ’αž“αž“αŸαž™Β αŸ– αžŸαž˜αŸ’αžšαžΆαž”αŸ‹β€‹αž€αžΆαžšβ€‹αž…αžΌαž›β€‹αžŠαŸ†αžŽαžΎαžšβ€‹αž€αžΆαžšβ€‹αž―αž€αžŸαžΆαžšβ€‹αž…αŸƒαžŠαž“αŸ’αž™ αž€αŸ†αžŽαžαŸ‹β€‹αž”αŸ’αžšαžœαŸ‚αž„β€‹αžšαž”αžŸαŸ‹β€‹αž€αŸ†αžŽαžαŸ‹β€‹αžαŸ’αžšαžΆΒ αŸ”

αžšαžΌαž”β€‹αžαŸ†αžŽαžΆαž„β€‹αž…αŸ†αžŽαžΆαŸ†

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


αž§αž‘αžΆαž αžšαžŽαŸ αŸ–


Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
    aFile = "c:\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "This is a line of text"
    Print #iNumber, "This is 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