Discussion :

[bakman]

Bonjour à tous je cherche à faire une recherche avec fso dans le premier sous répertoire de chaque dossier contenu dans un répertoire.
Pour ce qui n'aurait pas compris cette phrase je m'explique
Dans un répertoire que l'ont appellera "root" j'ai plusieurs sous répertoires nommé "1, 2, 3, 4, etc." ces répertoires contiennent eux même des répertoires "1.1, 2.1, 3.1, 4.1, etc.". Moi je souhaiterais effectuer une recherche que dans le premier niveau s'est à dire les dossiers "1, 2, 3, 4, etc."
Allé petit bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim oFSO As Scripting.FileSystemObject
Dim oFld As Folder
oFSO = new Scripting.FileSystemObjecct
 
For Each  folders in oFld.SubFolders
oFld = oFSO.GetFolder(myfolder)
For Each files in oFld.Files
msgbox(files.name)
Next
Next

Quelle condition je pourrais utiliser dans le premier "For each" pour qu'il ne rentre pas dans les répertoires de niveau 2.
Voilou merci d'avance

[shayw]

Salut

Utilises plutot la class directory

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function GetDirectoriesFirstDepth() As List(Of String)
        Dim listfoldername As New List(Of String)
        Try
            Dim SousDos() As String = Directory.GetDirectories("C:\ROOT")
            Dim Dossier As String
            For Each Dossier In SousDos
                listfoldername.Add(Dossier)
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        Return listfoldername
    End Function

[bakman]

ok mais tu lui dit comment de ne regarder que dans les répertoire de niveau 1 du répertoire "root"? surtout que le nom des répertoire de niveau je ne connais pas à l'avance comment ils se nomment donc je ne peux pas les exclure par leurs noms

[shayw]

j'obtiens tous les sous répertoire sous root
tu écris

Dans un répertoire que l'ont appellera "root"

donc tu connais son chemin
disons tu as
ROOT
DIR1
DIR1.2
DIR2
DIR2.1
DIR3
DIR3.1
DIR4
DIR5
DIR5.1

dans laliste j'obtiens DIR1 DIR2 DIR3 DIR4 DIR5
possible que je n'ai pas compris ce que tu veux

[bakman]

si tu comprend que DIR1.1 est le sous répertoire de DIR1 et que DIR2.1 est le sous répertoire de DIR2 alors oui obtenir DIR1 DIR2 DIR3 ... s'est cela que je veux

[shayw]

j'espère que ça ira

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Private Function GetDirectoriesDepth(ByVal root As String) As List(Of String)
        Dim listfoldername As New List(Of String)
        Try
            Dim SousDos() As String = Directory.GetDirectories(root)
            Dim Dossier As String
            For Each Dossier In SousDos
                listfoldername.Add(Dossier.Substring(root.Length + 1))
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        Return listfoldername
    End Function

et pour appeler la fonction

Code :

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

1
2
Dim listdir As New List(Of String)
        listdir = GetDirectoriesDepth("C:\ROOT")

[bakman]

Ouais s'est super merci shayw!