bonjour,
J'ai un avertissement dans mon code que je n'arrive pas a supprimé donc j'aimerai avoir votre avis pour savoir s'il n'y a aucun soucis pour le laisser ou s'il va me poser problème.
avertissement = La fonction 'ListeSectionKey' ne retourne pas une valeur pour tous les chemins de code. Une exception de référence null peut se produire au moment de l'exécution lorsque le résultat est utilisé.
voici maintenent le code de ma fonction :
merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Public Function ListeSectionKey(ByVal Path As String, ByVal Section As String, ByRef Key() As String) As Object Dim strReturn As String strReturn = New String(Chr(0), 8192) GetPrivateProfileSection(Section, strReturn, 8192, Path) Key = Split(Left(strReturn, InStr(1, strReturn, vbNullChar & vbNullChar) - 1), vbNullChar) End Function
Partager