Imports System.Windows.Forms
public class FileOpenDialogFilter
public Shared Sub Main
Dim saveFileDialog1 As System.Windows.Forms.SaveFileDialog
saveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
saveFileDialog1.CreatePrompt = True
saveFileDialog1.FileName = "doc1"
saveFileDialog1.Filter = "Word (*.doc) |*.doc;*.rtf|(*.txt) |*.txt|(*.*) |*.*"
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
Console.WriteLine(saveFileDialog1.FileName)
End If
End Sub
End class