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