For Each file In .FileNames TextBox1.AppendText(file + vbCrLf) Next
With OpenFileDialog1 .Multiselect = True .Title = "Sélectionnez un ou plusieurs fichiers" .Filter = "Images (*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|" + "Images (*. BMP, *. JPG, *. GIF) | *. bmp, *. JPG, *. GIF |» + _" + "Tous les fichiers (*.*)|*.*" .SupportMultiDottedExtensions = True .ShowDialog() 'TextBox1.Text = .FileName '+ vbCrLf 'ici il y a une erreur, mais je ne sais pas comment m'en sortir... il me dit "Identificateur attendu" For Each file In .FileNames TextBox1.AppendText(file + vbCrLf) Next End With
TextBox1.Text = "" With OpenFileDialog1 .Multiselect = True .Title = "Sélectionnez un ou plusieurs fichiers" .Filter = "Images (*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|" + "Images (*. BMP, *. JPG, *. GIF) | *. bmp, *. JPG, *. GIF |» + _" + "Tous les fichiers (*.*)|*.*" .SupportMultiDottedExtensions = True '.ShowDialog() 'TextBox1.Text = .FileName '+ vbCrLf 'ici il y a une erreur, mais je ne sais pas comment m'en sortir... il me dit "Identificateur attendu" If .ShowDialog = Windows.Forms.DialogResult.OK Then For Each file In .FileNames TextBox1.AppendText(file + vbCrLf) Next End If End With End Sub
With OpenFileDialog1 .Multiselect = True .Title = "Sélectionnez un ou plusieurs fichiers" .Filter = "Images (*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|" + "Images (*. BMP, *. JPG, *. GIF) | *. bmp, *. JPG, *. GIF |» + _" + "Tous les fichiers (*.*)|*.*" .SupportMultiDottedExtensions = True .ShowDialog() TextBox1.Text = .FileName End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question