Discussion :

[AliHome]

Bonjour à tous.

J'ai rencontré un problème lorsque j'utilise la fonctions My.Computer.FileSystem.GetFiles, si je choisi le chemin "C:\" il me met le messsage d'erreur écrit dans le titre

L'accès au chemin d'accès 'C:\Documents and Settings' est refusé

et je ne sais pas comment contourner le problème ! Car inévitablement il sort de la boucle for each pour parcourir tous les fichiers, et il ne me le fait pas qu'avec ce dossier.

J'ai fait des recherches à propos de FileIOPermission mais sans succès (http://msdn.microsoft.com/fr-fr/libr...8VS.90%29.aspx).

Merci pour votre aide, cordialement,

AliHome

[tomlev]

Quel OS ?
Fais voir le code qui pose problème

[jlm22]

Surement un problème de droit connecte toi en admin sur ton poste

[AliHome]

Windows 7. Et j'ai une session administrateur le problème ne vient pas de là.

Le code ?

Code :

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

For each file as string in My.Computer.FileSystem.GetFiles("C:\")

Rien de plus !

[tomlev]

Windows 7. Et j'ai une session administrateur le problème ne vient pas de là.

J'ai la même erreur de mon côté. En fait sous Windows 7 le dossier "Documents and Settings" n'existe plus, il est remplacé par le dossier "Users". Ou plus exactement, il existe, mais il n'est pas visible et on ne peut pas y accéder, même en temps qu'admin. D'ailleurs si tu essaies d'y accéder via l'explorateur ou la ligne de commande, tu verras que ça ne marche pas non plus

[AliHome]

Mmh oui et tout ça je m'en doutais, du coup ma question est, est-il possible de continuer la boucle malgré cela ? Y a t-il un moyen "d'éviter" de passer par certains dossier tout naze comme celui là ?

[tomlev]

Mmh oui et tout ça je m'en doutais, du coup ma question est, est-il possible de continuer la boucle malgré cela ? Y a t-il un moyen "d'éviter" de passer par certains dossier tout naze comme celui là ?

Bah si ça pète sur GetFiles, la boucle ne commence même pas, donc elle ne peux pas continuer. Ou alors tu parles d'une autre boucle "autour" de celle-ci ? Dans ce cas il suffit de mettre un Try/Catch pour intercepter l'exception

[AliHome]

Bah j'ai déjà mis le for each dans un try catch et donc quand il rencontre cette erreur il sort de la boucle ! Et ca moi je veux pas ! Car après ca arrête le parcours de mes dossiers et toute ma recherche est foutue, dans tous les cas (si le chemin est C:\ ou D:\ par exemple) . Donc je cherche à contourner ce problème, peut être dans le "wildcards" je peux indiquer de ne pas tenir compte de certains dossier ?

[tomlev]

Va falloir que tu me montres un peu plus de code, parce que là je peux pas t'aider...

[AliHome]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Public Sub LoadFileList()
        Try
            MusicList.Clear()
 
            For Each file As String In My.Computer.FileSystem.GetFiles(FolderPath, FileIO.SearchOption.SearchAllSubDirectories)
                Dim ext As String = LCase(IO.Path.GetExtension(file)).Replace(".", "")
                If AudioFormat_List.Contains(ext) Then
                    MusicList.Add(file)
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

[tomlev]

OK, donc c'est bien ce que je te disais... Si l'erreur se produit sur GetFiles, il ne sort pas de la boucle, puisqu'il n'y rentre jamais. Donc je ne vois pas trop ce que tu voudrais continuer...

[AliHome]

Oui tu as raison, je me suis mal exprimé. Donc je reformule, je souhaiterais continuer à parcourir les dossiers avec getfiles même en rencontrant cette erreur, ou l'éviter avec des "paramètres" de recherche dans le wildcard si c'est possible (pour passer directement au dossier suivant si il s'appelle "Documents and Settings", par exemple) .

[tomlev]

Ah ok, je crois que je commence à comprendre... toi tu fais GetFiles sur "C:\", mais ça pète quand il commence à chercher ce qu'il y a dans "Documents and settings".

Le problème c'est qu'avec un GetFiles récursif tu ne peux pas contrôler ce qui se passe... De toutes façons, en faisant un GetFiles sur tout le disque, tu vas récupérer des centaines de milliers de fichiers, et la RAM utilisée par ton programme va exploser.

Donc il faut que tu fasses ça un peu plus manuellement : parcours les répertoires un par un sans l'option SearchAllSubdirectories, et gère toi-même la récursivité. Un truc comme ça :

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
  Public Sub LoadFileList()
      MusicList.Clear()
      LoadFileList(FolderPath, MusicList)
    End Sub
 
  Private Sub LoadFileList(ByVal path As String, ByVal list As List(Of String))
      Try
          ' Parcours des fichiers du répertoire
          For Each file As String In My.Computer.FileSystem.GetFiles(path)
                Dim ext As String = LCase(IO.Path.GetExtension(file)).Replace(".", "")
                If AudioFormat_List.Contains(ext) Then
                    list.Add(file)
                End If
          Next
 
          ' Parcours des sous-répertoires
          For Each subdir As String In My.Computer.FileSystem.GetDirectories(path)
              LoadFileList(subdir, list)
          Next
       Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
  End Sub

Avec ce code, si un répertoire n'est pas accessible, ça remontera à la fonction appelante qui continuera sa propre boucle

[AliHome]

Oui mais là, arrivé à :

Code :

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

1
2
3
          For Each subdir As String In My.Computer.FileSystem.GetDirectories(path)
              LoadFileList(subdir, list)
          Next

le problème sera le même ! Non ? J'ai du mal à comprendre "ça remontera à la fonction appelante qui continuera sa propre boucle " !

[tomlev]

Oui mais là, arrivé à :

Code :

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

1
2
3
          For Each subdir As String In My.Computer.FileSystem.GetDirectories(path)
              LoadFileList(subdir, list)
          Next

le problème sera le même ! Non ? J'ai du mal à comprendre "ça remontera à la fonction appelante qui continuera sa propre boucle " !

Bah tu as testé ? Moi oui, et ça marche...

La fonction est récursive, donc si tu es dans LoadFileList("C:\"), ça va appeler (entre autres) LoadFileList("C:\Documents and settings"), qui va péter sur le GetFiles. Mais l'exception sera interceptée, et ça va simplement reprendre l'exécution de LoadFileList("C:\") là où ça en était

[AliHome]

D'accord je comprend, je pense pouvoir me débrouiller avec ca. Merci beaucoup pour ton aide en tous cas !