Gestion des fichiersRésolu

Question

Bonjour
Je rencontre quelques problèmes pour obtenir la liste des fichiers du disque C dans le programme VB express 2008 suivant:
****************************************************************
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        AfficheTree("C:")
    End Sub
    Sub AfficheTree(ByVal myDir As String, Optional ByVal Niveau As Integer = 0)

        'Affiche le répertoire myDir
        ListBox1.Items.Add(New String(" ", Niveau * 2) & myDir)

        'Affiche les fichiers
        For Each fichier As String In Directory.GetFiles(myDir)
            ListBox1.Items.Add(New String(" ", Niveau * 2 + 2) & fichier)
        Next
        'Parcourt les sous-répertoires
        For Each sousRepertoire As String In Directory.GetDirectories(myDir)
            'Appel de manière récursive 'AfficheTree pour afficher le contenu des sous répertoires.
            AfficheTree(sousRepertoire, niveau + 1)
        Next
    End Sub
*****************************************************************
Je suis bloqué par le dossier Systeme volume information qui est est donné comme vide par l'explorateur vista.

 Quelqu'un peut-il me donner la solution pour gérer cette exception?
Merci
Jacques

NHenry · Accepted Answer

Bonjour,

Utilises l'instruction Try/Catch pour gérer l'exception et ignorer le dossier qui pose pb.

Mon site

duarep · Answer

Merci, je vais regarder comment fonctionnent ces 2 instructions

Jacques

Gestion des fichiers

2 réponses

Votre réponse

Discussions similaires