Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 008 fois - Téléchargée 45 fois
'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
17 juin 2007 à 16:18
8 févr. 2006 à 15:50
si je peux me permetre
http://troxsa.info/index.php?option=com_content&task=view&id=27&Itemid=2
@+
15 juil. 2003 à 14:43
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.