Vu que je ne trouvais pas de code correspondant sur VBfrance le voici :
liste les noms des repertoire se trouvant dans la racine d'un autre repertoire du registre.
ICI :
il recherche le nom des differentes clés faisant appel aux periphériques USB.
Toujours utile pour celui qui fait de petits montages electroniques avec des 16F745 par exemple.
Source / Exemple :
Dim hKey As Long, Cnt As Long, sName As String, sData As String, Ret As Long, RetData As Long
Const BUFFER_SIZE As Long = 255
Ret = BUFFER_SIZE
'ouverture de la clé
If RegOpenKey(HKEY_LOCAL_MACHINE, "SYSTEM\ControlSet001\Control\DeviceClasses\{4d1e55b2-f16f-11cf-88cb-001111000030}", hKey) = 0 Then
'creation du buffer buffer
sName = Space(BUFFER_SIZE)
'enumeration des clé
While RegEnumKeyEx(hKey, Cnt, sName, Ret, ByVal 0&, vbNullString, ByVal 0&, ByVal 0&) <> ERROR_NO_MORE_ITEMS
param = LCase(sName)
param = Replace(param, "##?#", "Device=0;Path=\\?\")
'visualisation de la clé
'test de la clé
If (test_Usb(param)) = "ack" Then
'enregistrement de param
MsgBox "test reussi", vbDefaultButton1, "test USB"
Exit Sub
End If
'preparer la prochiane clé
Cnt = Cnt + 1
sName = Space(BUFFER_SIZE)
Ret = BUFFER_SIZE
' test de la presence du composant usb
Wend
'fermeture de la clé
RegCloseKey hKey
Else
Me.Print " erreur lors de l'ouverture de la clé"
End If
Conclusion :
petit changement dans la source... parce que ce n'été pas bon
voila amuser vous bien
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.