Probleme de recherche récursive de fichiers

**JbTech** · 26/07/2007, 23h00

J'ai besoin d'analyser tous fichiers sur les disques locaux.
J'utilise donc cette fonction bien simple que je pointe à la racine du disque (par exemple C:\ ) pour rechercher les fichiers dans tous les sous-répertoires.

Code :

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

1
2
3
For Each foundFile As String In My.Computer.FileSystem.GetFiles(drivetoScan, FileIO.SearchOption.SearchAllSubDirectories)
' CODE D'ANALYSE ICI...
Next

Ça fonctionne bien jusqu'à ce qu'il tombe sur un répertoire dont je n'ai pas les droits (dans un autre profil de Documents & Settings). Je soupçonne qu'une erreur sera aussi générée quand il tombera sur un dossier systeme (comme System Volume Information).

Je cherche donc un moyen de sauter par dessus ce repertoire si une erreur survient.

L'erreur survient sur la première ligne (For Each foundFile...). Je ne peux donc pas vérifier le répertoire avant qu'il arrive dessus et si je met un On Error Resume Next, il ne saute pas seulement le répertoire actuel mais le disque en entier pour passer au disque suivant dans ma liste.

Quelqu'un a une idée de génie ?

**max44410** · 27/07/2007, 07h23

Juste après la ligne For .... to .... tu ajoutes :

Code :

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

on error resume next

sinon tu peux aussi gérer les exceptions avec des try catch, c'est peut etre plus propre.

bonne continuation

**Aspic** · 27/07/2007, 11h08

Non le mieux c'est d'utiliser un Try Catch. Mais le mieux c'est d'utiliser sa propre fonction récursive comme ca plus de probleme :

Va voir la

**JbTech** · 27/07/2007, 16h23

Merci de vos réponses !

Max je ne peux pas mettre le On Error Resume Next à l'intérieur de ma boucle For / Next car l'erreur suivient à la première ligne (la ligne du For Each...)

J'ai esseyé avec un Try mais sans succès. Je Catch l'erreur mais je suis incapable de lui dire de continuer avec le répertoire suivant puisque je n'ai aucun contrôle sur la fonction.

Je voulais éviter de faire ma propre fonction de recherche récursive mais je crois que je n'aurai pas le choix...

Je pensais que peut-être on pouvait avoir plus de contrôle sur My.Computer.FileSystem.GetFiles