Discussion :

[MM_13]

Bonjour,

Je voudrais extraire les titres de dossiers présent dans un dossier.
Je fais cela avec le bout de code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub ListerDossier(CheminTmp)
 
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim FileItem As Object
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = Fso.GetFolder(CheminTmp)
 
    'Boucle sur tous les fichiers du répertoire
    For Each FileItem In SourceFolder.Files
 
        If FileItem.Type Like "Dossier de fichiers" Then
            UsfSelectionDossier.ComboBox2.AddItem FileItem.Name
        End If
 
    Next FileItem
 
    End Sub

Mais j'ai l'impression que cela ne tient pas compte des "fichiers" de type "Dossier de fichiers" qui sont présents dans le dossier que je cherche à scanner.
Est-ce qu'il y a une autre façon de "scanner" des dossier contenus dans un dossier ?

Merci.

[Thumb down]

Bonjour,
Essais quand même de faire un debug.print FileItem.Type
Le like permet de rechecher un fragment de phrases avant ou après une valeur ?.
Exemple "Mes Dossier de fichiers 23"
Like "*Dossier de fichiers*"

[Robert1957]

Bonjour MM_13, Thumb down,

Mais j'ai l'impression que cela ne tient pas compte des "fichiers" de type "Dossier de fichiers"

Vous avez tout à fait raison, cela ne tient pas compte des sous-dossiers. Pour boucler sur les "Dossier de fichiers" dans un répertoire quelconque vous devez vous servir de la propriété "SubFolders". Vous n'aurez pas besoin de tester si c'est bien un répertoire. Voici une routine qui boucle sur les répertoires contenus dans le répertoire d'appel. Vous pouvez choisir d'afficher seulement le premier niveau de sous-dossiers ou tous les sous-dossiers.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub ListFolderInFolder(ByVal sFolderName As String, ByVal bIsSubfolders As Boolean)
 
    Dim xFolder As Object
    Dim xSubFolder As Object
 
    Set xFolder = oFSO.GetFolder(sFolderName)
    For Each xSubFolder In xFolder.SubFolders
    Debug.Print "Type: " & xSubFolder.Type & " nom: " & xSubFolder.Name
        If bIsSubfolders Then
            ListFolderInFolderT xSubFolder.Path, True
        End If
    Next xSubFolder
 
    Set xFolder = Nothing
 
End Sub

L'appel se fait ainsi:

Code :

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

ListFolderInFolder "C:\LeCheminDuRepertoire", False 'True or false pour parcourir les sous répertoires ou pas

Bonne journée

[MM_13]

Bonjour,

La méthode de Robert1957 fonctionne parfaitement, mon problème est donc résolu.
Merci.