Объекты vb.net. Объекты OpenFileDialog и SaveFileDialog

Объекты OpenFileDialog и SaveFileDialog является по сути частью компонента Common Dialog, который входит в VB6. У него такие же свойства и методы, так что кто работал с этим компонентом в VB6, VB.Net с ним разобраться будет очень легко. При помощи этого объекта можно создовать такие вот окна открытия и сохранения файлов:

Сейчас мы сделаем программу, которая будет показывать окна показывать окна открытия и сохранения файлов. На форме размести 2 кнопки(Button1.Text = "Открыть", Button2.Text = "Сохранить"), OpenFileDialog(Name="OFD1"), и SaveFileDialog(Name = "SFD1").

Код:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' При нажатии на кнопку 'Открыть':
OFD1.InitialDirectory = "C:" ' Указываем начальную папку
OFD1.Title = "Программируем на Visual Basic.Net" ' Указываем заголовок
OFD1.Filter = "HTML файлы|*.html; *.htm|Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*" ' При помощи фильтра можно отбросить ненужные типы файлов(в нашем случае делаем выбор из списка(HTML файлы, Текстовые файлы, Все файлы)).
OFD1.FilterIndex = 2 ' Если есть список выбора типов, то можно указать какой тип будет выбран при загрузке диалога
If OFD1.ShowDialog = DialogResult.OK Then MsgBox(OFD1.FileName) ' Открываем диалог выбора файлов(OFD1.ShowDialog), если был выбран файл и нажата кнопка 'Открыть'(= DialogResult.OK), то показываем полный путь выбранного файла(MsgBox(OFD1.FileName))(зная путь, можно открыть файл(если диалог SaveFileDialog - то сохранить))
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' При нажатии на кнопку 'Сохранить'
' Здесь все аналогично
SFD1.InitialDirectory = "C:"
SFD1.Title = "Программируем на Visual Basic.Net"
SFD1.Filter = "HTML файлы|*.html; *.htm|Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*"
SFD1.FilterIndex = 2
If SFD1.ShowDialog = DialogResult.OK Then MsgBox(SFD1.FileName)
End Sub 

Исходник