VB 파일 처리

VB에서 파일 처리 하기 - 생성, 저장, 불러오기

    '저장할 파일

    Dim fileNum As Integer

    Dim str_name As String

    str_name = "test1"

    

   

    '파일 생성

    fileNum = FreeFile

    Open App.Path + "\data\" + str_name + ".txt" For Output As fileNum

    '파일 저장하기

    Print #fileNum, "Test Text"

    

    '파일 닫기

    Close #fileNum

디렉토리 생성하기
디렉토리가 없으면 생성해서 저장하려고 할때 사용하면 편리하다.

    If Dir(App.Path + "\data\", vbDirectory) = "" Then

        MkDir (App.Path + "\data\")

    End If