FreeFile Function

파일 열기에 μ‚¬μš©ν•  수 μžˆλŠ” λ‹€μŒ 파일 번호λ₯Ό ν‘œμ‹œν•©λ‹ˆλ‹€. ν˜„μž¬ μ—΄λ €μ§„ 파일이 아직 μ‚¬μš©ν•˜μ§€ μ•ŠλŠ” 파일 번호둜 νŒŒμΌμ„ μ—΄λ €λ©΄ 이 ν•¨μˆ˜λ₯Ό μ‚¬μš©ν•©λ‹ˆλ‹€.

ꡬ문:


FreeFile

λ°˜ν™˜ κ°’:

Integer

맀개 λ³€μˆ˜:

이 ν•¨μˆ˜λŠ” Open λ¬Έ λ°”λ‘œ μ•žμ—μ„œλ§Œ μ‚¬μš©ν•  수 μžˆμŠ΅λ‹ˆλ‹€. FreeFile은 μ‚¬μš© κ°€λŠ₯ν•œ λ‹€μŒ 파일 번호λ₯Ό ν‘œμ‹œν•˜μ§€λ§Œ 파일 번호λ₯Ό μ˜ˆμ•½ν•˜μ§€ μ•ŠμŠ΅λ‹ˆλ‹€.

Error codes:

5 잘λͺ»λœ ν”„λ‘œμ‹œμ € ν˜ΈμΆœμž…λ‹ˆλ‹€.

67 파일이 λ„ˆλ¬΄ λ§ŽμŠ΅λ‹ˆλ‹€.

예:


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