Discussion :

[zpap88]

Bonjour,

le problème est classique et on a déjà présenté diverses solutions.
mais, avec celle des FAQ "Comment lister les fichiers contenus dans un répertoire ainsi que dans tous ses sous-répertoires ?", le programme saute certains fichiers, même si je fais la recherche en ciblant uniquement le sous-répertoire concerné.
par contre, le programme suivant, plus simple, donne la liste complète. Mais il ne gère pas l'arborescence des répertoires.

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
 
 
Sub test()
Dim Dossier As String, Fichier As String, i As Integer
 
Dossier = "Q:\mon dossier musique\"
 
i = 0
 
Fichier = Dir(Dossier)
 
Do While Fichier <> ""
 
  i = i + 1
 
  Sheets("Sheet1").Range("A" & i) = Fichier
 
  Fichier = Dir
 
Loop
End Sub
 
Option Explicit

Je ne vois pas d'explication à ce saut de certains fichiers. Voici le contenu du répertoire:

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
 
01 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 1st Nocturne- In monte Oliveti.flac
02 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 1st Nocturne- Tristis est anima mea.flac
03 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 1st Nocturne- Ecce vidimus eum.flac
04 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 2nd Nocturne- Amicus meus osculi.flac
05 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 2nd Nocturne- Judas mercator pessimus.flac
06 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 2nd Nocturne- Unus ex discippulis meis.flac
07 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 3rd Nocturne- Eram quasi agnus innocens.flac
08 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 3rd Nocturne- Una hora non potuistis.flac
09 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 3rd Nocturne- Seniores populi consilium.flac
10 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 1st Nocturne- Omnes amici mei.flac
11 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 1st Nocturne- Velum templi scissum est.flac
12 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 1st Nocturne- Vinea mea electa, ego te plantavi.flac
13 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 2nd Nocturne- Tanquam ad latronem.flac
14 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 2nd Nocturne- Tenebrae factae sunt.flac
15 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 2nd Nocturne- Animam meam dilectam.flac
16 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 3rd Nocturne- Tradiderunt me.flac
17 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 3rd Nocturne- Jesum tradidit impius.flac
18 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 3rd Nocturne- Caligaverunt oculi mei.flac

le programme saute les n° 02, du n° 05 au n° 9 et le n° 12.

La longueur des noms serait-elle en cause ?

merci déjà pour vos idées

Luc

[EricDgn]

Bonjour,

Oui, le fonction Dir() ne fonctionne correctement qu'avec des noms complets de maximum 260 caractères (nom complet: chemin + nom du fichier).

Cordialement.

[mat955]

Bonjour,

J'ai déjà utilisé une macro pour lister tous les dossiers et fichiers d'un répertoire dans un fichier Excel (+ les sous-dossiers qui vont avec).

Pour cela, j'utilise une procédure récursive, qui parcourt tous les fichiers d'un répertoire donné en paramètre, puis tous les dossiers.
Et pour chaque dossier, la procédure s'appelle elle-même en prenant comme répertoire paramètre le répertoire détecté, et ainsi de suite...

Voici le code que j'ai simplifié pour l'exemple, à adapter.
Tu constateras que je récupérais uniquement le nom des fichiers/dossiers, mais tu peux récupérer le chemin entièrement.

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
Dim fso As FileSystemObject, dossier As Folder, sousdossier As Folder, fichier As File
Dim NbFichiers As Integer, NbDossiers As Integer
 
Public Sub scan(ByVal dossier As Folder)
 
    For Each fichier In dossier.Files
        ActiveCell.Value = Right(fichier, Len(fichier) - InStrRev(fichier, "\", InStrRev(fichier, "\")))
        ActiveCell.Offset(1, 0).Select
        NbFichiers = NbFichiers + 1
    Next
 
    For Each sousdossier In dossier.SubFolders
        ActiveCell.Value = Right(sousdossier, Len(sousdossier) - InStrRev(sousdossier, "\"))
        ActiveCell.Offset(1, 0).Select
        Call scan(sousdossier)
    Next
 
End Sub

EDIT : Il me semble de mémoire qu'il faut ajouter la référence externe : Microsoft Scripting Runtime. A tester sans et avec pour voir.

[zpap88]

Bonjour,
merci à EricDgn et mat955.
Cher Eric, c'est curieux, car c'est justement la macro avec DIR qui fonctionne, tandis que celle qui est récursive ne fonctionne pas.
Cher Mat, oui, je connais ce type de macro, mais c'est justement celle qui saute certains fichiers.

Dans mon cas, la longeur maximum était toujours inférieure à 260, mais proche: 248, 253, 248, 250, 255, 256, 257, 254, 257, 243, 252, 247, 248, 248, 242, 249, 250

J'en ai parlé à un de mes beaux-fils qui est dans le support informatique et qui soupçonne aussi une question de longeur de "path" ou la présence d'un caractère spécial.

Une recherche sur internet m'a donné deux informations très utiles.

"Windows 10 : Microsoft met silencieusement fin à la limitation à 260 caractères pour les chemins d'accès"

http://<br /> https://www.developpe...version/<br />

ou encore ici
http://<br /> https://knowledge.aut...ers.html<br />

1/je cite:

Par contre, et cela existe depuis au moins 20 ans (ça remonte à Windows NT), il est possible de dépasser cette limite en préfixant les chemins par \\?\, (par exemple \\?\C:\monfichier), et la limite est alors poussée à 32767.

Je l'ai fait, et effectivement, je récupère bien tout. Une bonne idée donc.


2/ On peut activer (mais il faut le faire) dans W10, la suppression de cette limite de 260.

Je l'ai aussi testée (sans utiliser l'autre astuce). Mais j'obtiens toujours la même erreur: certains fichiers sont manquants.

Mais, avec la première solution (rajouter \\?\ devant), c'est ok. Donc résolu

Luc