C'est un code tres simple pour lister les fichiers et dossiers en dot net...
C'est pour les debutants, mais je ne crois pas qu'il y ai encore bcp de gens qui puissent se dire maitriser vb.net (vive le changement)
Source / Exemple :
'Declarez cette reference au debut de votre code:
Imports System.IO
'Placer 1 listbox : Listbox1 , et 3 textbox : Startdir, Txtsearch et Txtextend
'Mettre de preference "*" comme valeur par defaut de Txtsearch et Txtextend
'(ce sont les arguments de recherche, La chaine a rechercher (utile pour les deux listing,mais la chaine doit etre le nom entier de fichiers ou dossiers, ce qui est assez peu pratique) et l'extension des fichiers a afficher (utile seulement pour le listing des fichiers))
Dim tableau() As DirectoryInfo
Dim tableau2() As FileInfo
Dim nbrfiles As Long
Dim nbrfiles2 As Long
Dim i As Long
Dim i2 As Long
Dim x As Long
Dim x2 As Long
Dim n As Integer
Dim hb As New DirectoryInfo(startdir.Text)
Dim hb2 As New DirectoryInfo(startdir.Text)
ListBox1.Items.Clear()
If txtsearch.Text = "" Then txtsearch.Text = "*"
If Txtext.Text = "" Then Txtext.Text = "*"
tableau = hb.GetDirectories(txtsearch.Text)
For i = 0 To tableau.GetUpperBound(0)
ListBox1.Items.Add(startdir.Text & "\" & tableau(i).ToString & vbTab)
Next i
tableau2 = hb2.GetFiles(txtsearch.Text & "." & Txtext.Text)
For i2 = 0 To tableau2.GetUpperBound(0)
ListBox1.Items.Add(startdir.Text & "\" & tableau2(i2).ToString)
Next i2
Conclusion :
L'affichage semble assez rapide, je vais surement ecrire un algorithme de recherche a partir de cela.
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.