Discussion :

[lofofora72]

Bonjour,

Je viens vers vous pour un souci. Lors d'une tentative de récupération du nombre de fichier du profil message d'erreur accès à C:\Users\nomuser\appdata\.....

Il y a t'il un moyen de corriger ce probleme ?????

si besoin de plus d'explications n'hésitez pas.
merci

[GuruuMeditation]

Un peu de code peut nous aider.

[lofofora72]

voila mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        Dim profil As String = Environment.GetEnvironmentVariable("userprofile")
 
        Dim nbmydir
        nbmydir = 0
 
        Dim files1 As IEnumerable = _
          Directory.EnumerateFiles(profil, "*", SearchOption.TopDirectoryOnly)
 
        For Each f As String In files1
            nbmydir = nbmydir + 1
        Next