OpenFileDialog.AddExtension : OpenFileDialog « System.Windows.Forms « VB.Net by API

1. VB.Net by API
2. System.Windows.Forms
3. OpenFileDialog

OpenFileDialog.AddExtension

  

Imports System.IO
Imports System.Windows.Forms

public class ColorDialogWithCustomColorSettings
   public Shared Sub Main
        Dim FileDB As New OpenFileDialog()

        FileDB.Filter = "All files | *.* | Text files | *.txt"

        FileDB.FilterIndex = 2
        FileDB.InitialDirectory = "C:\Temp"
        FileDB.AddExtension = True
        FileDB.DefaultExt = "txt"

        FileDB.CheckFileExists = False
        FileDB.CheckPathExists = False

        If (FileDB.ShowDialog() = DialogResult.OK) Then
            Dim SourceFile As StreamReader
            Try
                SourceFile = New StreamReader(FileDB.FileName)
                Console.WriteLine(SourceFile.ReadToEnd())
                SourceFile.Close()
            Catch Except As DirectoryNotFoundException
                Console.WriteLine("Error: " & Except.Message)
            Catch Except As FileNotFoundException
                Console.WriteLine("Error: " & Except.Message)
            Catch Except As Exception
                Console.WriteLine("Error: " & Except.Message)
            End Try
        Else
            Console.WriteLine("User selected Cancel")
        End If
   End Sub
End class

   
    
  

Related examples in the same category