À l'aide de DriveListBox, DirListBox et FileListBox, ce code affiche dans un debug tous les fichiers contenues dans le dossier sélectionné (En appuyant sur le bouton) et ses sous-dossiers
Source / Exemple :
Private Sub Command1_Click()
lireDossier Dir1.Path ' Appel de la commande pour lister les fichiers
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path ' Affiche le contenue du dossier sélectionné
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive ' Le dossier devient le lecteur sélectionné
End Sub
Private Function lireDossier(dossier As String)
Dim dossierPrecedent As String
Dim i As Integer
Dim j As Integer
dossierPrecedent = CStr(Dir1.Path) ' Sauvegarde le dossier précédent
Dir1.Path = dossier ' Se place dans le dossier à lire
For i = 0 To (Dir1.ListCount - 1) ' Pour chaque dossier présent
File1.Path = Dir1.List(i) ' Place le path dans le FileList
For j = 0 To (File1.ListCount - 1) ' Pour chaque fichier du FileList
Debug.Print File1.List(j) ' L'affiche dans debug
Next j
lireDossier CStr(Dir1.List(i)) ' Affiche le contenue du dossier sélectionné
Next i
Dir1.Path = dossierPrecedent ' Se replace au dossier précédent
End Function
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.