Создать путь для записи текстового файла

Question

У меня есть код, который отвечает на кнопку. Этот код работает, но я хочу знать, как изменить путь к чему-то, кроме MyDocuments. Как мне это сделать? Нужно ли сначала создать путь к файлу. например c:\TextFiles\myfile.txt?

Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click 
    Dim dataLine As String 
    Dim mydocpath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) 
    Using outputFile As New StreamWriter(mydocpath & Convert.ToString("\DataLines.txt")) 
     For Each p As PointF In lstECRPairs(106) 
      dataLine = p.X & "/" & p.Y 
      outputFile.WriteLine(dataLine) 
     Next 
    End Using 
End Sub 

Answer 1

Исправить, если вы просто добавили полный путь и имя файла в потоковом потоке, который будет писать там файл.

Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click 
Dim dataLine As String 
'YourFilePathAndFileName 
Using outputFile As New StreamWriter(c:\TextFiles\myfile.txt) 
    For Each p As PointF In lstECRPairs(106) 
     dataLine = p.X & "/" & p.Y 
     outputFile.WriteLine(dataLine) 
    Next 
End Using 
End Sub 

Также приведенная ниже линия получает myDocs. Это вам не нужно, если вы не хотите копировать в MYDocuments.

Dim mydocpath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) 

Answer 2

Я бы использовал метод SaveFileDialog.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim dataLine As String 
    Dim mydocpath As String 
    If SaveFileDialog1.ShowDialog() = DialogResult.OK Then 
     mydocpath = SaveFileDialog1.FileName 
     Using outputFile As New StreamWriter(mydocpath & Convert.ToString("\DataLines.txt")) 
      For Each p As PointF In lstECRPairs(106) 
       dataLine = p.X & "/" & p.Y 
       outputFile.WriteLine(dataLine) 
      Next 
     End Using 
    Else 
     ''nothing 
    End If 
End Sub 

Я не добавлять детали SaveFileDialog Вы можете редактировать их в обозревателе решений или, если вам действительно нужно, я могу изменить свой ответ, чтобы помочь с этим. Я не смог проверить, если, однако, он должен сделать трюк :)