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