2023.11.24 TIL(기본강의3.1)

Today do list

⦁파일입력

TIL

파일입력

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        'true : 기존의 텍스트 내용 뒤에 추가할 문자열이 들어감
        'false : 기존의 텍스트 내용을 삭제후 추가한 문자열이 들어감
        '****기본값은 false이다!!! 주의하기!!!!!!****
        'My.Computer.FileSystem.WriteAllText("경로", "추가할 문자열", "true || false")
        'My.Computer.FileSystem.WriteAllText("C:\Users\user\Desktop\vbtest2.txt",
        '                                    "새로운 텍스트입니다." & vbCrLf,
        '                                    True)
        'OpenFileDialog1.ShowDialog()

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            'OpenFileDialog1.FileName : OpenFileDialog1.ShowDialog()에서 선택한 파일의 경로
            My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName,
                                                "NEW 텍스트입니다." & vbCrLf,
                                                True)
        End If



    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fileStream As IO.StreamWriter

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

            'fileStream = My.Computer.FileSystem.OpenTextFileWriter("경로","true || false")
            fileStream = My.Computer.FileSystem.OpenTextFileWriter(OpenFileDialog1.FileName, True)
            fileStream.WriteLine("fileStream입니다.")
            '항상 fileStream을 사용하면 close해주기
            fileStream.Close()

        End If

    End Sub
End Class

Retrospection