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