FreeFile Function
νμΌ μ΄κΈ°μ μ¬μ©ν μ μλ λ€μ νμΌ λ²νΈλ₯Ό νμν©λλ€. νμ¬ μ΄λ €μ§ νμΌμ΄ μμ§ μ¬μ©νμ§ μλ νμΌ λ²νΈλ‘ νμΌμ μ΄λ €λ©΄ μ΄ ν¨μλ₯Ό μ¬μ©ν©λλ€.
ꡬ문:
FreeFile
λ°ν κ°:
Integer
λ§€κ° λ³μ:
μ΄ ν¨μλ Open λ¬Έ λ°λ‘ μμμλ§ μ¬μ©ν μ μμ΅λλ€. FreeFileμ μ¬μ© κ°λ₯ν λ€μ νμΌ λ²νΈλ₯Ό νμνμ§λ§ νμΌ λ²νΈλ₯Ό μμ½νμ§ μμ΅λλ€.
μ:
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "c:\data.txt"
sMsg = ""
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "First line of text"
Print #iNumber, "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