Создание файла с текстом в выбранной директории

@Alexander_Pr · Регистрация: 01.07.2015

Author24 — интернет-сервис помощи студентам

Всем привет!
Подскажите пожалуйста новичку

как создать файл "1.txt" с текстом в выбранной пользователем директории?
Суть программы в том что пользователь выбирает директорию,где будет создан этот файл и в TextBox2.Text вводит текст, который должен вписаться в этот файл.
Для создания файла использую код:

VB.NET

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then 
            TextBox1.Text = FolderBrowserDialog1.SelectedPath
            System.IO.File.Create(Path.GetDirectoryName(TextBox1.Text) + Path.DirectorySeparatorChar + "key1.txt") 
        End If
    End Sub

Но программа создает файл не в том каталоге, а на директорию выше, т.е. пользователь выбирает
"G:\Папка 1\", а программа создает файл в "G:\", а не в "Папка 1", а если просто выбрать "G:\" ,то создает в корне диска "С:\", вообще не понимаю почему так происходит....
А для текста, который пользователь вводит в TextBox2.Text след. код:

VB.NET

1	My.Computer.FileSystem.WriteAllText(FolderBrowserDialog1.SelectedPath,key1.txt, TextBox2.Text, True)

Тут вообще жалуется либо код не правильно как я над ним только не экспериментировал, либо файл используется другим процессом и т.д.
Спасибо!

@OwenGlendower · 14.08.2015, 13:24

Alexander_Pr, вызов Path.GetDirectoryName здесь не нужен т.к. для пути G:\Папка 1, он вернет G:\. Следует использовать Path.Combine для построения пути. Кроме этого ты неправильно используешь File.Create. Он не только создает файл, но и возвращает FileStream для работы с ним. Если его не сохранить или не закрыть сразу, то файл будет оставаться открытым пока не закроется программа или не сработает сборщик мусора. В итоге следует делать так:

VB.NET

If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then 
    TextBox1.Text = FolderBrowserDialog1.SelectedPath
    Using fstream As FileStream = File.Create(Path.Combine(TextBox1.Text, "key1.txt"))
        Using writer As New StreamWriter(fstream)
            writer.Write(TextBox2.Text)
        End Using
    End Using
End If

Или так

VB.NET

If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then 
    TextBox1.Text = FolderBrowserDialog1.SelectedPath
    File.WriteAllText(Path.Combine(TextBox1.Text, "key1.txt"), TextBox2.Text)
End If

@Alexander_Pr · 14.08.2015, 13:33 **[ТС]**

OwenGlendower, все заработало! Спасибо!

@Alexander_Pr 0 / 0 / 0 Регистрация: 01.07.2015 Сообщений: 30
	14.08.2015, 13:33 [ТС]	3
	OwenGlendower, все заработало! Спасибо! 0

Опции темы

Создание файла с текстом в выбранной директории

Решение