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.

āĻŽā§‹āĻĄ: āĻĢāĻžāχāϞ āĻŽā§‹āĻĄ āωāĻ˛ā§āϞāĻ–āĻ•āĻžāϰ⧀ āϕ⧀āĻ“ā§ŸāĻžāĻ°ā§āĻĄāĨ¤ āĻŦ⧈āϧ āĻŽāĻžāύ: āĻĒāĻŋāĻļ⧇āώ⧇ āϝ⧋āĻ— (āĻ•ā§āϰāĻŽāĻžāύ⧁āϏāĻžāϰ āĻĢāĻžāχāϞ⧇āϰ āĻĒāϰāĻŋāĻļ⧇āώ⧇ āϝ⧋āĻ—), āĻŦāĻžāχāύāĻžāϰāĻŋ (Get āĻāĻŦāĻ‚ Put āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰ⧇ āĻŦāĻžāχāϟ āĻ…āύ⧁āϏāĻžāϰ⧇ āĻĄāĻžāϟāĻž āĻĒā§āĻ°ā§Ÿā§‹āĻ— āĻ•āϰāĻž āϝāĻžā§Ÿ), āχāύāĻĒ⧁āϟ (āĻĒāĻžāĻ  āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ āĻĄāĻžāϟāĻž āĻšā§āϝāĻžāύ⧇āϞ āĻ–ā§‹āϞāĻž āĻšā§Ÿ), āφāωāϟāĻĒ⧁āϟ (āϞ⧇āĻ–āĻžāϰ āϜāĻ¨ā§āϝ āĻĄāĻžāϟāĻž āĻšā§āϝāĻžāύ⧇āϞ āĻ–ā§‹āϞāĻž āĻšā§Ÿ) āĻāĻŦāĻ‚ āĻ°â€ā§āϝāĻžāĻ¨ā§āĻĄāĻŽ (āϏāĻ‚āĻļā§āϞāĻŋāĻˇā§āϟ āĻĢāĻžāχāϞ āϏāĻŽā§āĻĒāĻžāĻĻāύāĻž)āĨ¤

IOāĻŽā§‹āĻĄ: āϕ⧀āĻ“ā§ŸāĻžāĻ°ā§āĻĄ āϝāĻž āϤāĻĨā§āϝ āύāĻŋāĻŦ⧇āĻļāύ⧇āϰ āϧāϰāύ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰ⧇āĨ¤ āĻ•āĻžāĻ°ā§āϝāĻ•āϰ āĻŽāĻžāύ: āĻĒāĻĄāĻŧāĻž (āĻļ⧁āϧ⧁āĻŽāĻžāĻ¤ā§āϰ āĻĒāĻžāĻ āϝ⧋āĻ—ā§āϝ), āϞ⧇āĻ–āĻž (āĻļ⧁āϧ⧁āĻŽāĻžāĻ¤ā§āϰ āϞāĻŋāĻ–āύāϝ⧋āĻ—ā§āϝ), āϞ⧇āĻ–āĻž-āĻĒ⧜āĻž (āωāĻ­āϝāĻŧāχ)āĨ¤

āϏ⧁āϰāĻ•ā§āώāĻŋāϤ: āϕ⧀āĻ“ā§ŸāĻžāĻ°ā§āĻĄ āϝāĻž āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ āĻ–ā§‹āϞāĻžāϰ āĻĒāϰ⧇ āϤāĻžāϰ āύāĻŋāϰāĻžāĻĒāĻ¤ā§āϤāĻž āĻ…āĻŦāĻ¸ā§āĻĨāĻž āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āĻ•āĻžāĻ°ā§āϝāĻ•āϰ āĻŽāĻžāύ: āĻļ⧇āϝāĻŧāĻžāϰāĻ•ā§ƒāϤ (āϏāĻŽā§āĻ­āĻŦāϤ āĻĢāĻžāχāϞāϟāĻŋ āĻ…āĻ¨ā§āϝ āĻ…ā§āϝāĻžāĻĒā§āϞāĻŋāϕ⧇āĻļāύ⧇āϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ āĻ–ā§‹āϞāĻž āĻšāϤ⧇ āĻĒāĻžāϰ⧇), āφāĻŦāĻĻā§āϧ āĻĒāĻžāĻ  (āĻĢāĻžāχāϞāϟāĻŋ āĻĒ⧜āĻž āĻšāϤ⧇ āϏ⧁āϰāĻ•ā§āώāĻŋāϤ), āφāĻŦāĻĻā§āϧ āϞ⧇āĻ–āĻž (āĻĢāĻžāχāϞ āϞ⧇āĻ–āĻž āĻšāϤ⧇ āϏ⧁āϰāĻ•ā§āώāĻŋāϤ), āφāĻŦāĻĻā§āϧ āϞ⧇āĻ–āĻž-āĻĒ⧜āĻž (āĻĢāĻžāχāϞ⧇āϰ āϏāĻ¨ā§āύāĻŋāĻŦ⧇āĻļ āĻĒā§āϰāĻ¤ā§āϝāĻžāĻ–ā§āϝāĻžāύ āĻ•āϰ⧇)āĨ¤

FileNumber: āĻāĻ•āϟāĻŋ āĻŽā§āĻ•ā§āϤ āĻĄāĻžāϟāĻž āĻšā§āϝāĻžāύ⧇āϞ⧇āϰ āϏāĻ‚āĻ–ā§āϝāĻž āύāĻŋāĻ°ā§āĻĻ⧇āĻļ āĻ•āϰāϤ⧇ 0 āĻĨ⧇āϕ⧇ 511 āĻāϰ āĻŽāĻ§ā§āϝ⧇ āϝ⧇āϕ⧋āύ⧋ āĻĒā§‚āĻ°ā§āĻŖāϏāĻ‚āĻ–ā§āϝāĻž āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύāĨ¤ āĻĢāĻžāχāϞ⧇ āϏāĻ¨ā§āύāĻŋāĻŦ⧇āĻļ āĻ•āϰāϤ⧇ āφāĻĒāύāĻŋ āĻĄāĻžāϟāĻž āĻšā§āϝāĻžāύ⧇āϞ⧇āϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ āĻ•āĻŽāĻžāĻ¨ā§āĻĄ āĻĒāĻžāϏ āĻ•āϰāϤ⧇ āĻĒāĻžāϰ⧇āύāĨ¤ āĻĢāĻžāχāϞ āϏāĻ‚āĻ–ā§āϝāĻž āϤāĻžā§ŽāĻ•ā§āώāύāĻŋāĻ•āĻ­āĻžāĻŦ⧇ FreeFile āĻĢāĻžāĻ‚āĻļāύ⧇āϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ āĻ“āĻĒ⧇āύ āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āĻĒā§‚āĻ°ā§āĻŦ⧇ āĻ…āĻŦāĻļā§āϝāχ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰāϤ⧇ āĻšāĻŦ⧇āĨ¤

DatasetLength: āĻ°â€ā§āϝāĻžāĻ¨ā§āĻĄāĻŽ āĻāĻ•ā§āϏ⧇āϏ āĻĢāĻžāχāϞ⧇āϰ āϜāĻ¨ā§āϝ āϰ⧇āĻ•āĻ°ā§āĻĄā§‡āϰ āĻĻ⧈āĻ°ā§āĻ˜ā§āϝ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰāĻž āĻšāĻŦ⧇āĨ¤

āύ⧋āϟ āφāχāĻ•āύ

āφāĻĒāύāĻŋ āĻļ⧁āϧ⧁āĻŽāĻžāĻ¤ā§āϰ āĻāĻ•āϟāĻŋ āĻ“āĻĒ⧇āύ āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ āĻ–ā§‹āϞāĻž āĻĢāĻžāχāϞ⧇āϰ āĻŦāĻŋāώāϝāĻŧāĻŦāĻ¸ā§āϤ⧁ āĻĒāϰāĻŋāĻŦāĻ°ā§āϤāύ āĻ•āϰāϤ⧇ āĻĒāĻžāϰāĻŦ⧇āύāĨ¤ āϝāĻĻāĻŋ āφāĻĒāύāĻŋ āχāϤ⧋āĻŽāĻ§ā§āϝ⧇āχ āĻ–ā§‹āϞāĻž āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ āĻ–ā§‹āϞāĻžāϰ āĻšā§‡āĻˇā§āϟāĻž āĻ•āϰ⧇āύ, āϤāĻžāĻšāϞ⧇ āĻāĻ•āϟāĻŋ āĻ¤ā§āϰ⧁āϟāĻŋ āĻŦāĻžāĻ°ā§āϤāĻž āĻĻ⧇āĻ•āĻžāĻŦ⧇āĨ¤


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


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