Lister un repertoire par extension dans une ListBox
Contenu du snippet
Imports System.IO
Dim opendir As New FolderBrowserDialog
With opendir
.ShowNewFolderButton = False
.RootFolder = Environment.SpecialFolder.MyDocuments
End With
If opendir.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim di As New IO.DirectoryInfo(opendir.SelectedPath)
Dim extFi As IO.FileInfo() = di.GetFiles("*.*") 'filtrer les fichiers
Dim fi As IO.FileInfo
For Each fi In extFi
ListBox1.Items.Add(fi.Name) 'affiche les noms avec extension
'ListBox1.Items.Add(fi.Name.Replace(fi.Extension, ""))'affiche les noms sans extension
Next
Else
MessageBox.Show("Opration annule par l'utilisateur!", "Ouverture dossier", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
opendir.Dispose()
Compatibilité : VB 2005, VB 2008
A voir également
- Lister un repertoire par extension dans une ListBox
- Extension .film ✓ - Forum Visual Basic 6
- Extension fichier c# ✓ - Forum C# / .NET
- Listbox ✓ - Forum VB.NET
- Créer une extension firefox - Conseils pratiques -Javascript
- Extension .net - Forum C# / .NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
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.