텍스트 파일 읽기,쓰기 open,line input,write,kill (설정내용텍스트저장,삭제)

[올란도]

'프로그램을 실행할때 환경 설정파일을 읽고, 끝날때 환경 설정파일을 저장하는 모듈. 

'파일 다이얼로그를 사용할때 그 위치를 읽어오고 저장하는 내용. 

'모듈 내용 
'Input(읽기) Output(쓰기) Append(이어서 추가하기) Random(임의)
Public Sub readIni()
'설정화일 읽기 
'---------------------------------------------------------- 
    Dim fn As Integer
    Dim strLine As String
    Dim strTmp As String
 

    On Error GoTo nofile
    fn = FreeFile
    Open App.Path & "\CapWin.ini" For Input As #fn
    Do While Not EOF(fn)  '파일 마지막 줄까지 읽음. 
        strLine = ""
        Line Input #fn, strLine
        strTmp = strTmp & strLine & vbCrLf '줄이 바뀔때마다 캐리지리턴값을 추가하여 

                                                              '나중에 줄단위로 구분. 
    Loop
    Close #fn
    strLine = Replace(Split(strTmp, vbCrLf)(1), """", "") 'Split(strTmp, vbCrLf)(1) 분리된후 배열 형태로 반환되므로 

                                                                                '분리된 값에서 두번째값을 바로 가져오기위해 배열 첨자를 사용 


    'CapWin.ini 의 구조 
    '----------------------------------------------- 
    '첫줄에는 프로그램이름 

    '두번째줄에는 절대경로 
   폴더위치 = Trim(strLine)
    Exit Sub
nofile:
폴더위치 = Trim(CStr(App.Path))

End Sub
Public Sub saveIni()
'설정화일 저장 
'----------------------------------------------------- 
    Dim fn As Integer
  
    On Error GoTo nofile
    fn = FreeFile
     
      Open App.Path & "\CapWin.ini" For Output As #fn    ' 파일 이름을 작성합니다. 
      Write #fn, "CapWin"         ' 출력합니다. 
      Write #fn, 폴더위치
      Close #fn
nofile:

End Sub

 

'폼내용 

Private Sub form1_load()

readIni '저장된 설정 내용을 읽음 

End Sub

Private Sub form1_Unload()

SaveIni '현재 설정 내용을 저장 

End Sub

 

Private Sub fileDel()

'파일삭제 

 Kill App.Path + "\" + "file.ext"

End Sub