Bonjour,

Dans le cadre d'une migration d'access 2003 vers 2010 et de XP vers Windows 7. J'ai une erreur qui apparait (ou du moins une différence de comportement avec l'utilisation de GetFolder().

L'idée est par exemple de vérifier si si un dossier est vide. Si il y a une erreur on affiche le message.

voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
If PCheckFolders Then
    If FSO.GetFolder(PFolderPath).subfolders.count > 0 Then
        lb1 = False
    Else
        lb1 = True
    End If
End If
Dans l'ancienne version ça marchait sans message d'erreur.
Lorsque j'exécute sur access 2010 le getFolder(path) renvoi bien le bon dossier mais la partie subFolders (et Files également) n'est pas renseigné. (Si je mets un espion sur l'objet folder j'ai "Erreur définie par l'application ou par l'objet" au niveau des subfolders).

Et je me retrouve avec le message d'erreur "Permission Refusée"

Le comportement de mon objet folder ne semble pas dépendre du fait qu'il contient oui ou non des dossiers ou fichiers.

Précision:

Le programme en question liste les sous dossiers présent dans "D:\Utilisateurs\User\Documents" et bloque notamment aves les dossiers MesImages MesVideos et MaMusique. Des dossiers qui n'apparaissent pas lorsque que je vais voir dans l'explorateur... serait-il cachés ou un truc du genre?

Quelqu'un aurait-il une idée de la source de mon poblème?

Cordialement,
Christophe.