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
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.