Discussion :

[benvey]

Bonjour,

J'ai créé une form dans laquelle je saisi un chemin d'accès vers un dossier.
Après vérification de l'existence du dossier et du comptage du nombre de sous-dossier et fichier, je lance l'analyse sur la longueur des chemins d'acces complet aux differents fichiers. Lorsque les chemins sont superieurs à 255 caracteres, le chemin complet est écrit dans une listbox, ainsi que le nombre de caractères.
Mais mon problème du pathtoolong exception apparait lorsque le nom du fichier est supérieur à 248 caractères ou un dossier supérieur à 260 caractères.

Voici le code qui calcule :

Code :

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

1
2
3
4
5
6
7
For each foundfile as string in my.computer.filesystem.getfiles(Dossier,FileIO.searchOption.searchallsubdirectories)
fulpath = foundfile
pathlen = len(fulpath)
if pathlen > 255 then
listbox1.items.add(fullpath & ";" & pathlen)
end if
next

Je ne sais pas comment faire pour ne plus avoir l'erreur, ou sinon recuperer les 250 premieres caracteres et l'inscrire dans ma listbox1.

Merci pour votre aide

Benoit

[phoenellion]

Bonjour,

il y a deux notions qui me surprennent ici, vous parlez d'un côté d'un fichier dont le nom contient plus de 248 caractères, et de l'autre d'un dossier. Mais je pense que c'est juste un abus de langage.

Noms de fichiers

Le nom complet d'un fichier correspond au chemin du répertoire où il se trouve et au nom du fichier lui même, plus un caractère de séparation :
NomFichierComplet = NomChemin & "\" & NomFichier
Le nom du fichier comportant lui même l'extension (".***")

Donc pour un fichier texte intitulé "Test" dans le disque C:, le chemin serait
"C:\Test.txt" => 11 caractères.

Si le nom du fichier comporte 12 caractères, mais que le nom répertoire où il se trouve en comporte 248, le total fera 260 +1 avec le caractère de séparation => donc il aura erreur.

Sinon le code est bon, si ce n'est que j'utiliserais plutôt System.IO, puis Directory.GetFiles

Code :

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

1
2
3
4
5
6
7
Imports System.IO
Sub Test()
Dim Répertoire As String = "C:\"
        For Each Fichier In IO.Directory.GetFiles(Répertoire,".",SearchOption.AllDirectories)
            If Len(CStr(Fichier)) > 260 Then ListBox_NomFichierComplet.Items.Add(CStr(Fichier))
        Next
End Sub