VisualBasic 파일 입출력

' 파일 입력 예제   
    Dim f As Integer
    Dim str As String
       
    f = FreeFile()
   
    Open App.Path & "\config.ini" For Input As #f
        Line Input #f, server
        Line Input #f, ID
        Line Input #f, pw
        Line Input #f, str
        cycleTime = str
       
    Close #f


' 파일 출력 예제
    Dim f As Integer
       
    f = FreeFile()
    Open App.Path & "\Log\" & Replace(Date, "-", "") & "_Log_Err.txt" For Append As #f
        Print #f, Date & " " & Format(Time, "hh:mm:ss") & "   " & str
    Close #f