FreeFile Function
νμΌ μ΄κΈ°μ μ¬μ©ν μ μλ λ€μ νμΌ λ²νΈλ₯Ό νμν©λλ€. νμ¬ μ΄λ €μ§ νμΌμ΄ μμ§ μ¬μ©νμ§ μλ νμΌ λ²νΈλ‘ νμΌμ μ΄λ €λ©΄ μ΄ ν¨μλ₯Ό μ¬μ©ν©λλ€.
Integer
μ΄ ν¨μλ Open λ¬Έ λ°λ‘ μμμλ§ μ¬μ©ν μ μμ΅λλ€. FreeFileμ μ¬μ© κ°λ₯ν λ€μ νμΌ λ²νΈλ₯Ό νμνμ§λ§ νμΌ λ²νΈλ₯Ό μμ½νμ§ μμ΅λλ€.
5 μλͺ»λ νλ‘μμ νΈμΆμ
λλ€.
67 νμΌμ΄ λ무 λ§μ΅λλ€.
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "C:\Users\ThisUser\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
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "~/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