equivalent en vba de Dir /s

bonjour,

ya til un equivalent en vba de la puissante ligne de commande
"Dir /s "

bonjour,
si tu nous dis à quoi sert la ligne Dir /s on doit pouvoir s'arranger ;)

c'est une ligne de commande msdos
que tu tapes dans l'invite de commande

qui te liste les fichiers dans tous les repertoires et sous repertoire

d'accord, il y a des équivalents oui.
tu peux adapter ceci si tu le souhaites.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Function EcrireDansTableFichiersParExtension(ByVal Mondossier As String, ByVal MonExtension As String) As Boolean
'fonction de récupération des fichiers dans un répertoire, copie des infos dans la table T_Fichiers_mdb
Dim ObjFSO, ListRepertoires, ListSousRep, ListFichiers, MonRep, MonFich
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set ListRepertoires = ObjFSO.GetFolder(Mondossier)
Set ListSousRep = ListRepertoires.SubFolders
 
Dim MaBase As Database
Set MaBase = CurrentDb
Dim MonSql As String
Dim MonNouveauFichier As String
Dim MaNouvelleExtension As String
Dim MonNewChemin As String
Dim MonNouveauDossier As String
 
    MonSql = ""
 
    EcrireDansTableFichiersParExtension = True
 
    On Error GoTo fin
    For Each MonRep In ListSousRep
            Set ListFichiers = MonRep.Files
            For Each MonFich In ListFichiers
                ' tester l'extension
                If Right(MonFich.Name, 3) = MonExtension Or MonExtension = "*" Then
 
                    'Remplacer nom de fichier si le nom de fichier contient une ' (apostrophe)
                    MonNouveauFichier = Replace(MonFich.Name, "'", " ")
                    MaNouvelleExtension = Replace(MonFich.Type, "'", " ")
                    MonNouveauDossier = Replace(MonRep.Name, "'", " ")
                    MonNewChemin = Replace(MonRep.Path, "'", " ")
 
                    Debug.Print MonNewChemin & "\" & MonNouveauDossier & "\" & MonNouveauFichier & "." & MaNouvelleExtension
                   End If
            Next
        ' Appel pour lister l'ensemble des sous sous sous rep...
 
        EcrireDansTableFichiersParExtension = EcrireDansTableFichiersParExtension(MonRep, MonExtension)
 
    Next
    Set MaBase = Nothing
    Exit Function
fin:
    EcrireDansTableFichiersParExtension = False
    Resume Next
End Function