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

Version imprimable

17/04/2011, 15h03
AliHome

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

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

Citation:

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
17/04/2011, 17h01
tomlev

Quel OS ?
Fais voir le code qui pose problème
18/04/2011, 12h10
jlm22

Surement un problème de droit connecte toi en admin sur ton poste
18/04/2011, 19h27
AliHome

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

Le code ?

Code:

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

Rien de plus !
18/04/2011, 21h21
tomlev

Citation:

Envoyé par AliHome

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
18/04/2011, 22h53
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à ?
18/04/2011, 23h34
tomlev

Citation:

Envoyé par 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à ?

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
18/04/2011, 23h48
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 ?
19/04/2011, 00h14
tomlev

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

Code:

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

19/04/2011, 09h44
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...
19/04/2011, 09h54
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) .

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:

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

19/04/2011, 19h54
AliHome
Oui mais là, arrivé à :
Code:

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 " !
19/04/2011, 20h21
tomlev
Citation:
Envoyé par AliHome

Oui mais là, arrivé à :

Code:

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
21/04/2011, 19h19
AliHome

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