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.Pour le moment c'est juste du parcours mais je compte y mettre du traitement pour sauvegarder tous les fichiers correspondant à une certaine extension.
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
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.
Partager