Lister un repertoire par extension dans une ListBox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 899 fois - Téléchargée 9 fois

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

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.