Open Statement
λ°μ΄ν° μ±λμ μ½λλ€.
ꡬ문:
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(νμΌ μ‘μΈμ€ κ±°λΆ)
FileNumber: μ¬μ© κ°λ₯ν λ°μ΄ν° μ±λμ λ²νΈλ₯Ό λνλ΄λ 0μμ 511 μ¬μ΄μ μμμ μ μ μμ λλ€. ν΄λΉ λ°μ΄ν° μ±λμ ν΅ν΄ λͺ λ Ήμ μ λ¬νμ¬ νμΌμ μ‘μΈμ€ν μ μμ΅λλ€. Open λ¬Έ λ°λ‘ μμμ FreeFile ν¨μλ‘ νμΌ λ²νΈλ₯Ό κ²°μ ν΄μΌ ν©λλ€.
DatasetLength: μμ μ‘μΈμ€ νμΌμ λν΄ λ μ½λμ κΈΈμ΄λ₯Ό μ€μ ν©λλ€.
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, "λ€λ₯Έ μ€ ν
μ€νΈμ
λλ€."
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