Recherche de fichiers très simple

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 256 fois - Téléchargée 30 fois

Contenu du snippet

Ce code permet d'effectuer une recherche des fichiers

Source / Exemple :


Dim fso As New FileSystemObject
Private result As String
Private Sub Command1_Click()

Dim lecteur As Drive
Dim dossier As Folder
Dim fichier As File
Dim sousdossier As Folder

For Each lecteur In fso.Drives
     If lecteur.IsReady Then 
     Set dossier = fso.GetFolder(lecteur)
             For Each sousdossier In dossier.SubFolders
             scan CStr(sousdossier)
             Next sousdossier
     End If
Next lecteur      
        
End Sub

Private Sub scan(dd As String)
Dim dossier As Folder
Dim sousdossier As Folder
Dim fichier As File
Set dossier = fso.GetFolder(dd)
On Error Resume Next
     If dossier.SubFolders.Count <> 0 Then
      For Each sousdossier In dossier.SubFolders
        DoEvents
        scan CStr(sousdossier)
      Next sousdossier
     End If
    For Each fichier In dossier.Files
    Label1.Caption = fichier.Path
    DoEvents
    'à la place de "dbx" mettez l'extension souhaitée ex : ".txt"
        If Mid(fichier.Path, Len(fichier.Path) - 2, 4) = "mp3" Then
        result = result & fichier.Path & vbCrLf
        End If
    Next fichier
    DoEvents

End Sub

Conclusion :


vous n'avez qu'à coller le code dans une Form et y ajouter un boutton, un label1 et une C TT sans oublier d'ajouter la reference "Microsoft Scripting Runtime".si vous rencontrez un prob : amine_hassini@hotmail.com

A voir également

Ajouter un commentaire Commentaires
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
22
J'ai déjà vu ces liens quelque part moi... Tient, y'en a même un sur VBnet !!!
Oui, c'est vrai que Microsoft abuse un peu sur le nombre d'infimes variantes de la version 5.6.0.xx Clair, y'en a 3 dites donc!!! Oulà... on va vite s'y perdre avec autant de différences...
Bref, moi je dis que le temps de gagner à coder en FSO sera toujours mieux utilisé que le temps autrement gagné par le processeur de votre client...
Mais... enjoy quand même si vous zavez que ça à faire (et surtout... si vous voulez faire que ça!!!)... Ca se respecte ! Chacun passe ses week-ends comme il peut!
Question : Feedback satisfaisant ou tu veux encore mettre le l'eau sur le feu (ou de l'huile, ou dans le gaz...) ?
++
Messages postés
53
Date d'inscription
dimanche 29 mai 2005
Statut
Membre
Dernière intervention
16 octobre 2006

et juste pour le nombre de versions de la dll, encore un lien pour la route...

http://support.microsoft.com/dllhelp/Default.aspx?dlltype=file&l=55&alpha=Scrrun.dll&S=1&x=15&y=17&start=25

Qui dit versions dit parfois incompatibilités, crashs, problemes entre ces versions et les produits qui les installent ?

A vous de voir. L'amusant est d'avoir votre feedback !
Messages postés
53
Date d'inscription
dimanche 29 mai 2005
Statut
Membre
Dernière intervention
16 octobre 2006

Juste pour le fun encore un petit lien contre le fso ?

http://vbnet.mvps.org/index.html?code/fileapi/fsoapicompare.htm

S'insurge qui voudra...
Messages postés
2106
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
15 novembre 2020
2
Bien argumenté !

Le gain est peut etre négligable dans un cas comme dans un autre mais cela ne chabge rien au fait que cele ajoute des dependances au programmes. Il faut donc faire installer sur la machine du client FSO.

Autre point non négligable et certains ont peut etre déjà eu le tour, c'est que si on a un antivirus qui le laisse rien passé, FSO rendra fou votre antivirus ... Ca fait pas tres pro non ?
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
22
Je m'insurge contre Jean_Elens !!! C'est n'importe quoi cet Url... car il faudrait aussi comparer le contre poinds de ces prétendus désavantages face aux avantages !!!
Par exemple : faut les bonnes DLL pi faut les livrer avec le projet... ha ha ha... qui, de nos jours, n'a pas IE5.0 avec son Windows ??? Ok, ça peut arriver, mais c'est quand même rare!!!
On peut le désactiver... ok, alors dites moi comment parce que moi j'ai tout bloqué et mon FSO fonctionne toujours!!! Alors oui, on le peut dans IE, dans VB, c'est une autre affaire!!! Du moment que les DLL sont sur le HD, qui peut quoi ??? De plus, ceux qui désactives, savent ce qu'ils encours!!! On ne peut donc pas s'adapter à tous (Nota, j'ai un 486 DX 4, qui veut me programmer le dernier GTA tout en 3D ??? Ben wai, j'ai Win98 dessus, ça devrait marcher!!!)!

Alors, qu'on se le dise une bonne fois pour toute : Si le FSO est plus lent que les API, c'est bien qu'il y a une raison !!! Et elle est toute simple : la sécurité et la souplesse d'utilisation !!!
Faire en VB une appli aussi fiable que le FSO via des API, vous y perdrez plus! Faire une utilisation aussi simple avec un niveau de protection contre les erreurs aussi développé vous fera perdre encore bien plus!
Au fait, on en est à combien de nos jours déjà... 3Ghz... Ah, ok, non, c'était juste pour savoir combien de nano secondes on devait gagner pour rendre les gens heureux !!!
Alors oui, on peut toujours faire autrement, on peut toujours faire plus compliqué et on peut toujours réinventer la roue... En somme, oui, pourquoi faire simple quand on peut faire compliqué ??? Perdre quoi pour gagner quoi ??? Posez-vous un peu cette question et on en reparlera... Parce que jusqu'ici, faut quand même bien le dire, y'en a pas un seul (et pour cause!!!) qui nous a pondu un OXC fait avec des API pour remplacer le FSO !!! Et pourquoi ??? Ben tout simplement, outre le fait que ce soit inutile puisqu'on a le FSO (!!!), parce quoi qu'il puisse faire, ce sera toujours moins performant et sécurisant que le FSO!

A méditer...
Afficher les 15 commentaires

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.