Имя файла при сохранении

[cosmo_vk]

После открытия файла через OpenFileDialog, необходимо чтоб этоже имя было и в SaveFileDialog, как вытащить это имя из открытия?

[Viper]

Тяжелый случай... Свойство FileName.

З.Ы. Интересно, почему вопрос задан именно так? Казалось бы, первое что может понадобиться в этом диалоге, это именно имя файла.

[AnarCky]

Извините что кидаю вопрос сюда, а не в другой топик.
Просто похожий случай.

Можно ли как то "засунуть" в OpenFileDialog имя в виде строковой переменной?
Просто так по чему то не съедает.

[Viper]

Ну и как можно попробовать так, что не получается "засунуть"? Код в студию!

[AnarCky]

Вот... Пожалуйста.
Выдает Exeption с текстом не могу найти файл в папке "...\bin\.txt".
А должен искать "temp.txt"

Код: Выделить всё

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim str As String
        rtxt1.LoadFile(str & ".txt")
    End Sub


[Viper]

И что здесь кто? Где тут вообще OpenFileDialog?

[cosmo_vk]

Тяжелый случай... Свойство FileName.

З.Ы. Интересно, почему вопрос задан именно так? Казалось бы, первое что может понадобиться в этом диалоге, это именно имя файла.

Пробовал я вот так делать(Fl_name - имя файла):

Код: Выделить всё

            Dim Temp As String = openFileDialog1.FileName.ToString
            Fl_name = Temp
            If Fl_name.EndsWith("") Then
                RichTextBox1.LoadFile(Fl_name, RichTextBoxStreamType.PlainText)

с объявлением Private Fl_name as string в самом начале.
После этого в SaveFileDialog запихивал так:

Код: Выделить всё

If saveFileDialog1.FileName <> "" Then
            RichTextBox1.SaveFile(Fl_name, RichTextBoxStreamType.PlainText)

Но все равно поле названия остается пустым, вероятно где-то я промахнулся, но где?

P.S. Извините, что не указал сразу что я использовал с самого начала FileName...

[Viper]

Бред... Без комментариев. А это в цитаты:

Код: Выделить всё

If Fl_name.EndsWith("") Then

Что ты здесь проверяешь? Что строка заканчивается пустой строкой? Это как?

После этого в SaveFileDialog запихивал так:
Код:

Код: Выделить всё

If saveFileDialog1.FileName <> "" Then
            RichTextBox1.SaveFile(Fl_name, RichTextBoxStreamType.PlainText)

Здесь имя файла не запихивется в SaveFileDialog, а вытаскивается из него. Все наобортот.


Реккомендации. Приведи больше кода. Более понятно объясни, что же тебе надо.

[cosmo_vk]

!Viper!

Реккомендации. Приведи больше кода. Более понятно объясни, что же тебе надо.

Объясняю: например, я открываю файл с названием test.txt с помощью OpenFileDialog, после всех преобразований в файле, в диалоге сохранения, реализованного через SaveFileDialog, нужно чтоб имя изначального файла значилось в поле имени файла при сохранении, сейчас оно у меня пустое...
Привожу код:
в самом начале объявляю Private Fl_name as string
затем идет OpenFileDialog:

Код: Выделить всё

Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click
Dim openFileDialog1 As New OpenFileDialog
        openFileDialog1.Filter = "Текстовый файл|*.txt|Любой файл|*.*"
        openFileDialog1.Title = "Выберите файл:"

        If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim Temp As String = openFileDialog1.FileName.ToString
            Fl_name = Temp
            If Fl_name.EndsWith("") Then
                RichTextBox1.LoadFile(Fl_name, RichTextBoxStreamType.PlainText)
            End If
        End If
end sub

После преобразований в файле(точнее в RichTextBox) идет сохранение, через SaveFileDialog:

Код: Выделить всё

Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
        Dim saveFileDialog1 As New SaveFileDialog
        saveFileDialog1.Filter = "Текстовый файл|*.txt"
        saveFileDialog1.Title = "Сохранить файл"
        saveFileDialog1.ShowDialog()

        If saveFileDialog1.FileName <> "" Then
            RichTextBox1.SaveFile(Fl_name, RichTextBoxStreamType.PlainText)
        End If
    End Sub


Код еще не переписывал, так что ошибка с

Код: Выделить всё

Fl_name.EndsWith("")

все еще есть, как и эта

Код: Выделить всё

RichTextBox1.SaveFile(Fl_name, RichTextBoxStreamType.PlainText)

Как сделать всеж, чтоб при сохранении было не пустое поле имени файла?

[Viper]

Тяжелый случай... Для тех кто в танке:

Код: Выделить всё

Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click
Dim openFileDialog1 As New OpenFileDialog
        openFileDialog1.Filter = "Текстовый файл|*.txt|Любой файл|*.*"
        openFileDialog1.Title = "Выберите файл:"

        If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim Temp As String = openFileDialog1.FileName.ToString
            Fl_name = openFileDialog1.FileName
            If Fl_name.Length <> 0 Then
                RichTextBox1.LoadFile(Fl_name, RichTextBoxStreamType.PlainText)
            End If
        End If
End Sub

Код: Выделить всё

Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
        Dim saveFileDialog1 As New SaveFileDialog
        saveFileDialog1.Filter = "Текстовый файл|*.txt"
        saveFileDialog1.Title = "Сохранить файл"
        saveFileDialog1.FileName = Fl_name

        saveFileDialog1.ShowDialog()
        Fl_name = saveFileDialog1.FileName
        If Fl_name.Length <> 0 Then
            RichTextBox1.SaveFile(Fl_name, RichTextBoxStreamType.PlainText)
        End If
    End Sub

Примерно так. Украшения и оптимизацию добавить на вкус

[ZharoV]

...Поморите Плиз!!!!))....Мне нужно загрузить в RichTExtBox текстовый файл С помощью openFileDialog, как это сделать правильно на VB 2008???)))

[MIT]

Точно так же как и на любом другом VB.NET. Постом выше дан код, чем он тебя не устраивает?