대화 상자에서 텍스트 파일 만들기

Question

버튼을 클릭하여 데이터를 텍스트 파일에 저장하려고합니다. 다음 코드로 기존 텍스트 파일에 씁니다. 이 때문에 file.writeline 기능의 사용이 매우 쉽고, 나는이 방법 역자 주 :

Dim file As System.IO.StreamWriter 
    file = My.Computer.FileSystem.OpenTextFileWriter("D:\test.txt", True) 
    file.WriteLine("-------------'Input data'-------------") 

을하지만 텍스트 파일을 생성하고 사용자가 이름입니다 선택할 수 있도록하는 코드가 필요합니다. 저장 대화 상자 또는 이와 비슷한 것을 열려고합니다. 어떻게하면됩니까?

Answer 1

질문에 '작성'과 '기존'을 섞어서 텍스트 파일을 만들고 싶다고 가정합니다.

다음과 같은 코드가 필요하지만 필요에 맞게 코드를 변경해야합니다. 예 : 양식에 저장 단추를 추가하십시오. 주의와도 사용자의 요구에 라인을 다음과 같이 변경하여보십시오 :

새로운하여 FileStream (OpenFileDialog1.FileName,를 FileMode.APPEND)으로

희미한 fsOut

Imports System.IO 

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

    With OpenFileDialog1 
     '.DefaultExt = "txt" 
     '.FileName = "test" 
     .Filter = "Textfile (*.txt)|*.txt" 
     .CheckFileExists = True 
     .InitialDirectory = "D:\" 
     '.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal) 
     '.Multiselect = False 
     .Title = "Select text file" 
    End With 

    If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then 
     txtFilePathName.Text = OpenFileDialog1.FileName 

     Dim fsOut As New FileStream(OpenFileDialog1.FileName, FileMode.Create) 
     Dim swFile As New StreamWriter(fsOut) 

     swFile.WriteLine("-------------'Input data'-------------") 
     swFile.Close() 
    End If 

    End Sub 
End Class