Visual Basic. Отображение названия файла в текстбоксе.

интернет Компьютеры программирование .net visual basic

Visual Studio 2010

Я выбираю название файла в диалоговом окне и хочу, чтобы это название отобразилось в однострочном текстбоксе("FilenameTextbox"). Какой код мне надо добавить?

---------------------------------------------

Private Sub OpenfileToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenfileToolStripMenuItem1.Click

OpenFileDialog1.Title = "Please Select a File"
OpenFileDialog1.InitialDirectory = "C:\Documents and Settings\MHardcore\Desktop"
OpenFileDialog1.Filter = "text files|*.txt"
OpenFileDialog1.ShowDialog()



End Sub

------------------------------------------

Private Sub FilenameTextbox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FilenameTextbox.TextChanged

End Sub

-------------------------------------------

Примечание:
Я нашёл такой код, но он отображает не название файла, а весь путь к нему. Можно это как-то обрубить?

Dim strm As System.IO.Stream
strm = OpenFileDialog1.OpenFile()
TextBox1.Text = OpenFileDialog1.FileName.ToString()

http://www.techrepublic.com/blog/programming-and-development/let-users-pick-a-file-to-open-via-openfiledialog-in-vbnet/481
Ответы:
Получаешь каким-то образом полное имя файла вместе с путем, записываешь его в fileToOpen
Дальше так
intPoz1 = InStr(1, fileToOpen, "\", vbTextCompare)
Do
   intPoz = InStr(intPoz1 + 1, fileToOpen, "\", vbTextCompare)
   If intPoz > 0 Then
       intPoz1 = intPoz      ' нашли "\" в пути
   Else
       Exit Do ' нашли последнюю "\", выходим из цикла
   End If
Loop
strDir = Left$(fileToOpen, intPoz1) ' Здесь содержится путь
strFile = Mid$(fileToOpen, intPoz1+1) ' Здесь содержится имя файла


11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.