Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 312 fois - Téléchargée 69 fois
Public Sub Recherche(Dossier As String, Paramètre As String) 'masque les controles, c plus rapide Sousdossiers.Visible = False Fichiers.Visible = False Dossiers.Visible = False Dossiers.Path = Dossier 'regarde si le parametre défini une recherche par extension ou par nom If Mid(Paramètre, 1, 2) = "*." Then Fichiers.Pattern = Extension Else Fichiers.Pattern = "*.*" NbrFichiers = 0 Do DoEvents For n = 0 To Dossiers.ListCount - 1 'ajoute les sous repertoires dans sousdossiers Sousdossiers.AddItem (Dossiers.List(n)) Next n For Testfichier = 0 To Fichiers.ListCount - 1 If NbrFichiers >= 10000 Then Exit Sub 'ne renvoie que les 10 000 premiers résultats 'c bien assez!!! If Right(Fichiers.Path, 1) <> "\" Then Sl = "\" Else Sl = "" 'slash ou pas dans le chemin d'acces 'regarde si ya des fichiers qui correspondent au critere de recherche 'REMARQUE: les fichiers qui ont le meme debut de nom que le paramètre son considéré comme des résultats If (Mid(Paramètre, 1, 2) = "*.") Or Mid(Fichiers.List(NbrFichiers), 1, Len(Paramètre)) = Paramètre Then Chemins(NbrFichiers) = Fichiers.Path & Sl & Fichiers.List(Testfichier) Taille(NbrFichiers) = (FileLen(Chemins(NbrFichiers)) / 1024) 'POUr afficher les fichiers trouvés au fur et a mesure, faut le faire ICI If Chemins(NbrFichiers) <> "" Then Print Chemins(NbrFichiers) & " Taille: " & Taille(NbrFichiers) & "Ko" NbrFichiers = NbrFichiers + 1 End If Next Testfichier Dossiers.Path = Sousdossiers.List(0) If Sousdossiers.ListCount > 0 Then Sousdossiers.RemoveItem 0 Else Exit Do If NbrFichiers >= 10000 Then Exit Do 'ne renvoie que les 10 000 premiers résultats 'c bien assez!!! Loop End Sub
Je crois que la syntaxe est Recherche,dossier,paramètre(soit le nom, soit l'extension).
http://www.vbfrance.com/article.aspx?Val=2914
Bon comme ca fait 1an que j'ai pas touché a Vb et que je l'ai désinstallé, si vous arrivez pas a comprendre le code malgré les commentaires, je peux pas vous aider, vu que je peux plus lire mes sources...
j'ai ici sur vb source un lanceur de programe pour cd, et je cherche justement a ce que la liste de fichier exe aparesse dans l'interface de mon programe, les fichier qu'ils soit au meme rang au dans des sous repertoire! mais la, je n'ai rien capté!
sousdossier est une listbox
fichier est un filelistbox
Désolé je l'avais pas mis.
********************************************************************
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.