[fichier]Chemin d'accès trop long
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 :
Citation:
The path is too long after being fully qualified. Make sure path is less than 260 characters.
Code:
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.