Recherche de fichiers très simple

Commenter

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

S'inscrire maintenant

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.

Du même auteur (amine_hassini)