Recherche récursive... Fonctionne, mais pas sur certain dossiers / fichiersRésolu

Question

Bonjour à tous.


Gros débutant que je suis, je cherche à apprendre en autodidacte le VB.Net.

Habituellement, je "scripte" en AutoIt...


J'ai donc décidé de faire la base des bases : une simple recherche récursive.

Ce script fonctionne (il recherche sur le bureau) :
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click

'Dim NF = TextBox1.Text
        'Dim CT = TextBox2.Text
        'Dim DS = TextBox3.Text

Dim cheminBUR = "C:\Users	omce\Desktop"
        Dim CheminRDD = "C:\"

For Each file As String In Directory.GetFiles(cheminBUR, "*.txt", SearchOption.AllDirectories)
            Console.WriteLine(file)
        Next

Console.WriteLine("FIN")

End Sub


J'ai bien la dite liste dans la console.

Ce script ne fonctionne pas :
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click

'Dim NF = TextBox1.Text
        'Dim CT = TextBox2.Text
        'Dim DS = TextBox3.Text

Dim cheminBUR = "C:\Users	omce\Desktop"
        Dim CheminRDD = "C:\"

For Each file As String In Directory.GetFiles(cheminRDD, "*.txt", SearchOption.AllDirectories)
            Console.WriteLine(file)
        Next

Console.WriteLine("FIN")

End Sub

 
J'ai comme erreur : exception non gérée.

ystem.UnauthorizedAccessException : 'L'accès au chemin d'accès 'C:\Documents and Settings' est refusé.'
-> https://i.imgur.com/vOvTYbw.png

J'ai donc décidé d'utiliser Catch .... Try

Plus d'erreur, mais une fois l'erreur trouvée, il s'arrête.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click

'Dim NF = TextBox1.Text
        'Dim CT = TextBox2.Text
        'Dim DS = TextBox3.Text

' premier

Dim cheminBUR = "C:\Users	omce\Desktop"
        Dim CheminRDD = "C:\"

Try
            For Each file As String In Directory.GetFiles(cheminBUR, "*.txt", SearchOption.AllDirectories)
                Console.WriteLine(file)
            Next

Catch uax As UnauthorizedAccessException

End Try

Console.WriteLine("FIN")

End Sub


Pouvez-vous m'aider à finaliser la chose ?

merci.


++

Whismeril · Answer

Re bonjour,

là pour le coup, c'est pas ce que j'appellerais la base de la base, mais bon.
Il faut que tu gères toi même la récursion.

Le sujet a été maintes fois traité sur la toile, certaines solutions sont plus abouties que d'autres
https://lite.qwant.com/?q=UnauthorizedAccessException+getfiles&client=opensearch

Si tu as lu l'article que j'ai écrit sur le passage de VB à VB.net, tu sais que VB.Net c'est du C#, donc toute solution en C# est applicable https://lite.qwant.com/?q=c%23+to+vb&client=opensearch

little boy62 · Answer

Bonjour.

Je passe en résolu.

Non pas parce que résolu, mais que ça devient un poil compliqué....

Petite parenthèse : désolée de la réponse tardive, mais avec le boulot, arffff ^^

Bref, j'essayais d'apprendre la recherche récursive. En aucun cas de créer un outil qui l'a déjà été, en largement mieux (Agent Ransack reste mon préféré).


Merci encore pour l'aide apportée.


++

little boy62 · Answer

Salut.

Suite à une énième curiosité de ma part, je voulais "encore" faire une recherche récursive...
Mais j'avais oublié (mémoire de ....) que j'avais créé un topic d'aide...


J'avais donc décidé de revenir demandé de l'aide, et je me suis aperçu que j'avais déjà sollicité la communauté pour la même chose...

J'ai donc bien fait de revenir, car, @Whismeril, tu m'avais mis sur la bonne voie en fait...
( comme d'habitude d'ailleurs ^^ )

En recherchant donc, via les liens données, je suis tombé sur cela :
https://codes-sources.commentcamarche.net/forum/affich-1643530-directory-getfiles-et-acces-refuse#15

Surtout ce passage :
    Private Sub Recherche(ByVal Chemin As String)
        Try
            For Each Fichier In System.IO.Directory.GetFiles(Chemin)
                ListFichiers.Items.Add(Fichier)
            Next
        Catch ex As Exception
            ListErreurs.Items.Add(ex.Message)
        End Try
        Try
            For Each Dossier In System.IO.Directory.GetDirectories(Chemin)
                Recherche(Dossier)
            Next
        Catch ex As Exception
        End Try
    End Sub

Donc, si j'ai bien compris : 
- Je liste d'abord les fichiers dans le dossier de base
- puis je liste les dossier
- Chaque dossier listé, je refais une recherche de fichiers
- Et ainsi de suite, grâce au rappel de la fonction.

Sans oublier les deux try/catch/end try pour passer outre les fichiers/dossiers protégées

résultat : ça fonctionne...


Je peux passer vraiment en.... résolu :D


Je ne savais pas qu'on pouvait appeler la fonction dans la même fonction, donc merci de m'avoir aiguiller.

++

Recherche récursive... Fonctionne, mais pas sur certain dossiers / fichiers

3 réponses

Votre réponse