Références en VB6

Question

bonjour à tous,

J'aurais besoin de récupérer par code toutes les références associées à un projet.
J'ai fait une fonction qui marche parfaitement en Access2000.
Lorsque je la transpose en VB, j'ai le message "Erreur 7952. Appel de fonction illégal" sur la ligne "For Each ref in References"

Dim ref As Reference

Public Function Toutes_Références() As String
    For Each ref In References
    If ref.IsBroken = False Then
            Debug.Print "Nom: ", ref.Name
            Debug.Print "Chemin d'accès complet: ", ref.FullPath
            Debug.Print "Version: ", ref.Major & "." & ref.Minor
        Else
            Debug.Print "GUID des références rompues:"
            Debug.Print ref.Guid

    End If
    
    
        'Toutes_Références = Toutes_Références & Ref.Name & ";" & Ref.FullPath & ";"
    Next ref
End Function

J'ai fureter dans l'aide VB. J'ai ramené des exemples qui, je pensais, allaient me tirer d'affaire :

'L 'exemple suivant utilise la propriété BuiltIn pour renvoyer une valeur de type Boolean indiquant si une référence particulière du projet actif est intégrée.
Debug.Print Application.VBE.ActiveVBProject.References(1).BuiltIn

'Le deuxième exemple utilise la propriété Description pour renvoyer le nom descriptif des objets Reference indiqués dans un projet spécifique.
Debug.Print Application.VBE.ActiveVBProject.Name
Debug.Print ActiveVBProject.Name
Debug.Print Application.VBE.VBProjects(1).References(1).Description
Debug.Print Application.VBE.VBProjects(1).References(2).Description

Mais la aussi j'ai des erreurs :
"Méthode ou membre de données introuvables"
"Variable objet ou variable bloc with non définie"

merci de bien vouloir m'apporter votre contribution pour que je parvienne à mon but
cordialement
fabienne

inthecorner · Answer

c'est comme si il manquait une reference dans le projet VB ?-)

Références en VB6

1 réponse

Discussions similaires