Discussion :

[dvince94]

Bonjour

J'ai vu qu'il existait la fonction Dir() pour teste l'existence d'un fichier mais existe il un équivalent pour les répertoires.

[Jean-Philippe André]

salut,
dans l'aide en ligne, il est spécifié que cela fonctionne aussi avec les répertoires

[Godzestla]

Bonjour,

DIR aussi.

regarde dans l'aide, il y a un exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
' Display the names in C:\ that represent directories.
MyPath = "c:\"    ' Set the path.
MyName = Dir(MyPath, vbDirectory)    ' Retrieve the first entry.
Do While MyName <> ""    ' Start the loop.
    ' Ignore the current directory and the encompassing directory.
    If MyName <> "." And MyName <> ".." Then
        ' Use bitwise comparison to make sure MyName is a directory.
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Display entry only if it
        End If    ' it represents a directory.
    End If
    MyName = Dir    ' Get next entry.
Loop

[dvince94]

Merci j'avais tester mais sans l'argument vbDirectory