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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
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
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.