Voila j'ai une Sub recursive qui me permet de parcourir tous les repertoires et fichiers présents sur le disque dur que je lui indique, le parcourt se fait sans probléme jusqu'à que je tombe sur cette erreur :

The path is too long after being fully qualified. Make sure path is less than 260 characters.
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
22
23
Private Sub Dir(Optional ByVal sDirectory As String = "c:\")
        Try
            Label2.Text = sDirectory
            ListBox.Update()
            Dim sFiles() As String
            Dim mytext As String = ""
            Dim myfolder As String = ""
            Dim flag As FileAttributes
            Dim i As Integer
            sFiles = Directory.GetFileSystemEntries(sDirectory)
            For i = 0 To sFiles.GetUpperBound(0)
                flag = File.GetAttributes(sFiles(i))
                If (flag And FileAttributes.Directory) = FileAttributes.Directory Then
                    Dir(sFiles(i))
                Else
                    nbOfFiles += 1
                    Label1.Text = nbOfFiles
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
Pour le moment c'est juste du parcours mais je compte y mettre du traitement pour sauvegarder tous les fichiers correspondant à une certaine extension.

Si quelqu'un sait comment régler le probléme du chemin d'accès trop long .. si quelqu'un sais merci de m'indiquer comment.