Gets the file names of all selected files in the dialog box.
Assembly: System.Windows.Forms (in System.Windows.Forms.dll)
The following code example allows the user to select a number of images and display them in PictureBox controls on a Form. It demonstrates initializing an OpenFileDialog, setting the Title and Filter properties, and allowing the user to select multiple files by setting the Multiselect property to true. This code example assumes that your form already has an OpenFileDialog control named openFileDialog1, a Button named SelectFileButton, and a FlowLayoutPanel named flowLayoutPanel1.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load InitializeOpenFileDialog() End Sub Private Sub SelectFileButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectFileButton.Click Dim dr As DialogResult = Me.OpenFileDialog1.ShowDialog() If (dr = System.Windows.Forms.DialogResult.OK) Then ' Read the files Dim file As String For Each file In OpenFileDialog1.FileNames ' Create a PictureBox for each file, and add that file to the FlowLayoutPanel. Try Dim pb As New PictureBox() Dim loadedImage As Image = Image.FromFile(file) pb.Height = loadedImage.Height pb.Width = loadedImage.Width pb.Image = loadedImage FlowLayoutPanel1.Controls.Add(pb) Catch SecEx As SecurityException ' The user lacks appropriate permissions to read files, discover paths, etc. MessageBox.Show("Security error. Please contact your administrator for details.\n\n" & _ "Error message: " & SecEx.Message & "\n\n" & _ "Details (send to Support):\n\n" & SecEx.StackTrace) Catch ex As Exception ' Could not load the image - probably permissions-related. MessageBox.Show(("Cannot display the image: " & file.Substring(file.LastIndexOf("\"c)) & _ ". You may not have permission to read the file, or " + "it may be corrupt." _ & ControlChars.Lf & ControlChars.Lf & "Reported error: " & ex.Message)) End Try Next file End If End Sub Public Sub InitializeOpenFileDialog() ' Set the file dialog to filter for graphics files. Me.OpenFileDialog1.Filter = _ "Images (*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|" + _ "All files (*.*)|*.*" ' Allow the user to select multiple images. Me.OpenFileDialog1.Multiselect = True Me.OpenFileDialog1.Title = "My Image Browser" End Sub